I recently posted about creating a Zoom Box in Excel . Alan writes in the comments:
“One of the features in Access that I really like is the ability to set a font size. Older people are sometime vision impaired, but you will learn about that in time. Is it possible to increase the font in the zoom box or set a font option?”
Anything for one of my 12 fans Alan. The steps are outlined below.
If my awesomeness is too blinding for you, you can skip the instructions and go right to the download here.
Step 1: Add a ListBox
Take the existing solution and add a ListBox.

Step 2: Write some code to fill the ListBox
Once you have the ListBox, you’ll want to fill it with appropriate font sizes. Because this is meant to be a stand-alone form (not tied to any particular sheet), you can use an internal hard-coded array. As you can see in this screenshot, I went for the common font sizes. If you want to be an ass about it, offer a 72 pitch font.

Step 3: Add an Event Trigger to your ListBox
The final step is to add an event trigger to your ListBox so that it will react when clicked.
Here, I’m telling the ListBox to use its value to updated the font size of the TextBox.

Step 4: Test
Always test your work.

I should note that the ListBox will only affect the TextBox – not the spreadsheet.
RELATED STUFF
- Zoom into Spreadsheet on Double-Click
- Mocking the ‘Merge & Center’ Icon
- VBE Tips I Wish I Knew 5 Years Ago
- Highlighting the Active Row and Column
- Using the Switch Function in Excel
- Why is Excel so Negative about Hiding Subtotals
- Why Replace the DOM Interface
- Running an Access Parameter Query from Excel
- Creating a Zoom Box in Excel
- Smart Scroll Bars in Excel


Mike, as one of your 12 fans, I want you to know that you are awesome. Thanks from the vision impaired, aged fan club.
Me!TextBox1.Text = “LOL”