Displayed caption font increases on each click

[Eddie]

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.

 

[Nigel]

What code are you using?

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

 

[Tom Ogilvy]

I found an article that related this to the zoom setting on the sheet being
less than 100%. It was for Excel 2000, so may not be pertinent.

http://support.microsoft.com/kb/211866/en-us

 

[Eddie]

Tom, that describes the problen exactly. But I have always set my zoom at
85% in my apps, and I have never seen this behavior before. Still, very
much appreciate the reference. Now probably just need to play with a bit
and see if I can get around. I think I'll delete my exisitng controls,
save, reopen, and redefine. And see what happens. Thanks.

 

[Eddie]

Deleting the controls, saving and exiting the template, reopening, setting
my zoom to 85%, and THEN redefining the controls seems to have worked. I do
like easy answers. Thanks.

 

[Eddie]

My "fix" did not hold. I.e., "Deleting the controls, saving and exiting the
template, reopening, setting
my zoom to 85%, and THEN redefining the controls seems to have worked."

I have not had this issue with any other templates. Only difference I can
tell is that I have moved from Excel 2002 SP2 to Excel 2003 SP2.

Any other thoughts? I can hardly pass this off as professional level
quality as it now stands. Thanks.

 

[Mr. Ed]

This is pretty frustrating. I get the same issues, except that I also get
diminishing button size and font, depending on the zoom.
Quick & dirty workaround -used text boxes with color fills, and convertedmy
code to macros and assigning those to the text boxes. Protected and locked
the text boxes. Looks "professional" enough.
Be interested to see real fix.

 

[RLang]

Hi Eddie,
I also had this trouble a while back and found this solution.
http://support.microsoft.com/kb/838006/en-us

Exit Excel
Scroll down to the section "More Information" and follow the 11 steps
listed. Relaunch Excel and click away to see if it took.

If this doesn't work, you might need a service pack update. Ignore the fact
that the article indicates a root cause of screen resolution change.