Re: Displayed caption font increases on each click

Tech-Archive recommends: Fix windows errors by optimizing your registry

What code are you using?

' this works for me
Private Sub CommandButton1_Click()
With CommandButton1.Font
.Size = .Size + 2
End With
End Sub



--

Regards,
Nigel
nigelnospam@xxxxxxxxx



"Eddie" <ladams@xxxxxxxxxxxxxxx> wrote in message news:79E4B9C0-0D03-46EB-AA9E-BF75900CC94D@xxxxxxxxxxxxxxxx
Working in Excel 2003 SP2, I have three command buttons which, when clicked, will have their displayed captions increase in size -- getting larger on each run.
1. When I go into VBA properties for the command button, the font setting is unchanged.
2. Furthermore, getting the VBA font property to reset the display doesn't seem to work well. It's as though it associates the current displayed font (call 76, maybe) with the current properties font (say 12). So changing the property font from 12 to 10, say, still displays as big. And once you have reset to the smallest font available, you are basically stuck.

I haven't a clue and have not seen this before. Autosize is off, as is TakeFocusOnClick.

Thanks in advance. Larry.

.

Quantcast