Excel ActiveX命令按钮每次点击字体自动变大，如何解决？

问题现象 #

• 点击ActiveX命令按钮时，按钮内部字体持续放大，最终仅能看到首字符的左上部分；但在属性对话框中查看，字体大小的设置值并未发生变化，且代码中没有任何修改字体的逻辑。
• 该问题曾自行消失，近期在完成多日无异常测试后再次复现，暂未明确触发原因。

解决方法 #

在按钮的点击事件代码末尾，强制指定按钮的字体大小，覆盖异常的渲染状态。以下是示例代码（按钮名为HideE，为切换型按钮，调用的子例程Hide_Etests会修改按钮标题）：

Private Sub HideE_Click()
    If HideE.Caption = "Hide E" Then
        Call Hide_Etests(True)
    Else
        Call Hide_Etests(False)
    End If
    ' 强制重置字体大小，修复异常放大问题
    HideE.Font.Size = 11
End Sub

内容的提问来源于stack exchange，提问作者GTaylor