Validations: provide the ability to format the fonts in the list
 

In MS Excel, I find that when the zoom is dropped to 50% the fonts in the
list become unreadable. Is there anyway that the fonts in the list have the
ability to have their own formats?

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...et.f unctions

Validations: provide the ability to format the fonts in the list
 

"Homar" wrote
In MS Excel, I find that when the zoom is dropped to 50%
the fonts in the list become unreadable.
Is there anyway that the fonts in the list have the
ability to have their own formats?

Think Debra Dalgleish's page addresses this issue at:
http://www.contextures.com/xlDataVal08.html#Larger
Make the Dropdown List Appear Larger
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

Thanx Max
However once the worksheet had protection enabled, the feature did not work.
Also it enlarges the entire worksheet which I guess is the best workaround
without any such feature within Excel.

Homar

"Max" wrote:

"Homar" wrote
In MS Excel, I find that when the zoom is dropped to 50%
the fonts in the list become unreadable.
Is there anyway that the fonts in the list have the
ability to have their own formats?

Think Debra Dalgleish's page addresses this issue at:
http://www.contextures.com/xlDataVal08.html#Larger
Make the Dropdown List Appear Larger
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

"Homar" wrote:
.. However once the worksheet had protection enabled,
the feature did not work.

Think there should be a vba way to auto-unprotect & re-protect so that it'll
work, but my vba proficiency is insufficient to offer this to you. Do hang
around awhile for insights from others versed in vba.
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

As promised by Max:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Unprotect Password:="thepassword"
If Target.Address = "$A$2" Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 100
End If
Me.Protect Password:="thepassword"
End Sub

Regards
Rowan

Max wrote:
"Homar" wrote:

.. However once the worksheet had protection enabled,
the feature did not work.


Think there should be a vba way to auto-unprotect & re-protect so that it'll
work, but my vba proficiency is insufficient to offer this to you. Do hang
around awhile for insights from others versed in vba.
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

Thanks, Rowan !
I'm also benefiting from your step-in <g
Cheers
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

Likewise <bg

Max wrote:
Thanks, Rowan !
I'm also benefiting from your step-in <g
Cheers
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

Thanx Rowan. I'm not a vb expert but managed to figure out where to put the
password commands.
below is the script i've used and it works.
one last thing though-how do i protect the code from being viewed? as it
contains the password!!!

Cheers and thanx agains
Homar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Unprotect Password:="thepassword"
Dim rngDV As Range
Dim intZoom As Integer
Dim intZoomDV As Integer
intZoom = 60
intZoomDV = 85
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
Me.Protect Password:="thepassword"
Exit Sub
errHandler:
GoTo exitHandler
Me.Protect Password:="thepassword"
End Sub


"Rowan Drummond" wrote:

Likewise <bg

Max wrote:
Thanks, Rowan !
I'm also benefiting from your step-in <g
Cheers
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

"Homar" wrote:
.. how do i protect the code from being viewed?
as it contains the password!!!

Think we could try, in VBE,
Click Tools VBA Project Properties Protection tab
(the option is there)
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Validations: provide the ability to format the fonts in the li
 

Thanx Max and Rowan.
It works well.

Cheers

Validations: provide the ability to format the fonts in the li
 

You're welcome, Homar !
Thanks for the feedback ..
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--
"Homar" wrote in message
...
Thanx Max and Rowan.
It works well.

Cheers