I hate Buttons...

[kpm30519]

I have a workbook that is stored on a server (a NAS, really.)
One sheet has a few command buttons and checkboxes that help me transfer data to other sheets.
All of this works just fine.
However, every single time I check a box or click a button, the format changes-- The checkbox gets smaller, or the font of the text label on the button gets smaller. Sometimes the buttons move. The actual Properties of the box or button don't change, just (apparently) the appearance.
I use Excel 2019, but I think this workbook was created in Excel 2010.

I've been all over Google, but can't find a good, quick solution and I'd rather not rewrite all the code.

Any thoughts or ideas welcome.

 

[footoo]

You could try transferring everything to a new workbook.

 

[Candyman8019]

You could just pick cells to use as buttons and assign a worksheet_selectionchange script to run your specfic macros.

For example:

Book1
	A	B	C	D	E
1		Button 1	Button 2	Button 3
2
3
Sheet1

Private Sub worksheet_selectionchange(ByVal target As Range)

If Not Intersect(target, Range("B1")) Is Nothing Then
    'do something
    MsgBox "button 1 pressed"
End If

If Not Intersect(target, Range("C1")) Is Nothing Then
    'do something
    MsgBox "button 2 pressed"
End If

If Not Intersect(target, Range("D1")) Is Nothing Then
    'do something
    MsgBox "button 3 pressed"
End If
End Sub

 

[kpm30519]

You could try transferring everything to a new workbook.

too many pages...

 

[kpm30519]

You could just pick cells to use as buttons and assign a worksheet_selectionchange script to run your specfic macros.

For example:

Book1
	A	B	C	D	E
1		Button 1	Button 2	Button 3
2
3
Sheet1

Private Sub worksheet_selectionchange(ByVal target As Range)

If Not Intersect(target, Range("B1")) Is Nothing Then
    'do something
    MsgBox "button 1 pressed"
End If

If Not Intersect(target, Range("C1")) Is Nothing Then
    'do something
    MsgBox "button 2 pressed"
End If

If Not Intersect(target, Range("D1")) Is Nothing Then
    'do something
    MsgBox "button 3 pressed"
End If
End Sub

This is a cool approach, one I'd've never thought of, but it's still not getting to a real solution. Thanks, though

 

[footoo]

too many pages...

But if the workbook is corrupted, it might be your only option.

 

[Candyman8019]

Alternatively…whatever macros you have assigned to your buttons, add a line to set the font size so they every time you press the button it will reset the font size for you.

 

[Candyman8019]

Ultimately this is an ongoing bug in the activeX controls. I would t expect it to be fixed any time soon so we need to resort the these types of workarounds.