Dear Steven
I think this is what you want if you have made dropdowns with menu item Data, Data Validation, Allow= List.
Put it in the Thisworkbook module.
It enlarges the whole screen so is a bit jumpy but it does the trick.
Also it assumes that your normal zoom setting is 100% .
Alter the ZOOM_NORMAL * 2.5 to your own taste.
Notice that if you are stepping through the code and do a Reset for any reason that Application.EnableEvents = False is still set.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nValidationType As Long
Const ZOOM_NORMAL As Long = 100
Const ZOOM_LARGE As Long = ZOOM_NORMAL * 2.5
'
Application.EnableEvents = False
On Error Resume Next
nValidationType = Target.Validation.Type
On Error GoTo 0
With ActiveWindow
If Not nValidationType = xlValidateList Then
If Not .Zoom = ZOOM_NORMAL Then .Zoom = ZOOM_NORMAL
Else
If Not .Zoom = ZOOM_LARGE Then .Zoom = ZOOM_LARGE
End If
End With
Application.EnableEvents = True
End Sub
Regards
Derek Turner
+++
From: steven.eckley <steven.eckley@accenture.com>
To: ExcelVBA@yahoogroups.com
Sent: Friday, 13 September 2013, 16:55
Subject: [ExcelVBA] Enlarging text in drop down lists
Derek, good thing you ask I generally limit my interaction on the groups as I don't really have any scripting skills. One think I have been trying to get done is enlarge the size of the text in a dropdown list when it is selected. I have about4 dropdown lists in a sheet, the text so small it is difficult to select the correct one. If you have any suggestions on how to get the font size of the text enlarged when scrolling through the drop down list it will help me out a lot.
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (6) |
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
.
__,_._,___
Tidak ada komentar:
Posting Komentar