Thanks Derek, going to give it a try first thing in the morning and let you know how it pans out.
Regards,
Steven
From: ExcelVBA@yahoogroups.com [mailto:ExcelVBA@yahoogroups.com] On Behalf Of Derek Turner
Sent: 15 September 2013 1:06 PM
To: ExcelVBA@yahoogroups.com
Subject: Re: [ExcelVBA] Enlarging text in drop down lists
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.
This message is for the designated recipient only and may contain privileged, proprietary, or otherwise confidential information. If you have received it in error, please notify the sender immediately and delete the original. Any other use of the e-mail by you is prohibited.
Where allowed by local law, electronic communications with Accenture and its affiliates, including e-mail and instant messaging (including content), may be scanned by our systems for the purposes of information security and assessment of internal compliance with Accenture policy.
______________________________________________________________________________________
www.accenture.com
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (8) |
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