Shrinking text size when using VBA command button on a form

Question

Inserted command buttons from VBA toolbar into my Excel user page and have associated code with the buttons.  Code works fine but everytime I select a command button the font decreases.  I go in and verfiy that my properties have correct font and font size selected.  I have seen this same question on web searches but no answer on how to fix it and to keep a command button.  Help would be appreciated.  Thks, Pete

Answer 1

I had this problem; the font size value stays the same but the text shrinks - wierd.

I solved it by making the AutoSize = True. Unfortunately the buttons are different sizes, but at least they are readable.

Answer 2

Hi,

Thank you for posting.

To stop from shrinking text size in the CommandButton everytime you click, please refer to the following code:

'To save the original font size in CommandButton1.

Dim curFontSize As Currency

'###############################################################

'Set the text size in CommandButton1 back to the recorded text size.

'###############################################################

Private Sub CommandButton1_Click()

    CommandButton1.Font.Size = curFontSize

End Sub

'#################################################

'Record the original text size in CommandButton1.

'#################################################

Private Sub UserForm_Initialize()

    curFontSize = CommandButton1.Font.Size

End Sub

have a great day!

Cristin Yan