Minggu, 15 September 2013

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.





__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (6)
Recent Activity:
----------------------------------
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