Drop-Down List Font Sizes

Slick!

I use a Text Box sized to 2 cell heights (Or whatever amount. To get the larger text), that triggers a User Form of the drop down list in whatever size you need.

Nice tip - thanks, Allen. You could also incorporate the zoom and font/column changes into a macro, starting with Activewindow.Zoom = 125 and so on, and have it run each time you open the workbook, to save a little time in making manual changes to these settings.

Regarding the font size on a list:
It would be a little more work, but if a person would like a larger font in a list, they could the alternate of a combo box.

My simple work around is to make all my lists for drop-down in capital letters. It does make a difference.

Is there any way to change the height of the drop down box that appears for a filter? I'd like to see more that just the first 5 values before I have to scroll down. My list isn't long, no more than about 10, but I have to get to #6 every time.

I like the zoom in qualities of this code, but how can I get the cell I'm selecting (to zoom in) to turn into a highlighted cell and then off again when clicked on another cell?

Thanks You Bill so very much for this life saver code. Was hunting for this possibility for past 3 days.

Cheers,
Caetano
DXB-Goa,India

To get around protected worksheets I did the following. If it has a password you will have to enter it.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngDV As Range
Dim intZoom As Integer
Dim intZoomDV As Integer
intZoom = 60
intZoomDV = 125
ActiveSheet.Unprotect
Application.EnableEvents = False
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo errHandler
If rngDV Is Nothing Then GoTo errHandler

If Intersect(Target, rngDV) Is Nothing Then
With ActiveWindow
If .Zoom <> intZoom Then
.Zoom = intZoom
End If
End With
Else
With ActiveWindow
If .Zoom <> intZoomDV Then
.Zoom = intZoomDV
End If
End With
End If
exitHandler:
Application.EnableEvents = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
errHandler:
GoTo exitHandler
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

i'm sorry, i forget to say i used Bill Cooter's code that was posted on 5/27/14 to get the results i wanted. But like i said, the code works if the sheet is not protected, but once i protect the sheet, it does not work.

@Kevin,
I'm not aware of any problem to change the zoom level in a protected sheet.ble to produce your problem.
You can upload an example workbook to some File Hosting sites and let us know the link for us to download it.
Michael (Micky) Avidan
“Microsoft® Answers" - Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2015)
ISRAEL

this works good if the sheet is unprotected. Once i protect the sheet, it stops working. what am i doing wrong do get the sheet protected and still be able to zoom when the cell is selected?

Ah yes, the Data Validation dropdowns do resize their fonts when you change the zoom setting. Perhaps that's what Allen meant.

I believe this article is for the drop down list created from Data Validation (in the Data ribbon tab). The Autofilter drop down is a different one.

I don't understand this tip. When I zoom out, then select one of the autofilter drop-downs, everything seems to be normal font. What is it people can't see?

I don't understand why people use zoom as a permanent solution. I have NEVER needed it, and I work with a LOT of spreadsheets. If you have to fit everything on one screen and can't redesign your spreadsheet, why not just take the font down and decrease the size of the cells? That way you don't have these and other problems caused by zooming.

When I setup my list I set the font size to e.g. 12 in the list. I also set the font size in the cell with the list attached and got the results I wanted. This may help.

I found a while back some code the zooms the spreadsheet when the cell with the drop down list is selected, it then returns the sheet back to original size when de-selected. I can't remember where I found it, so I can't give proper credit. But it has worked for me.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngDV As Range
Dim intZoom As Integer
Dim intZoomDV As Integer
intZoom = 48
intZoomDV = 100
Application.EnableEvents = False
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo errHandler
If rngDV Is Nothing Then GoTo errHandler
If Intersect(Target, rngDV) Is Nothing Then
With ActiveWindow
If .Zoom <> intZoom Then
.Zoom = intZoom
End If
End With
Else
With ActiveWindow
If .Zoom <> intZoomDV Then
.Zoom = intZoomDV
End If
End With
End If
exitHandler:
Application.EnableEvents = True
Exit Sub
errHandler:
GoTo exitHandler
End Sub

actually it doesn't help when you need to print...only for when you are viewing or working within the document and tedious to convert back and forth...still looking for a better workaround...anyone???

actually the tip helped me, i didn't know