<em>Excel</em> 为什么命令按钮上的字体越按越小

首先几个相关对象为：
sheet1 表中有两个按钮：CommandButton1 、 CommandButton2

前面两个问题，将以下代码复制入sheet1表的代码窗7a686964616fe59b9ee7ad94335中，实现两个按钮状态切换：
--------
Private Sub CommandButton1_Click()
CommandButton2.Enabled = True
CommandButton1.Enabled = False
End Sub

Private Sub CommandButton2_Click()
CommandButton1.Enabled = True
CommandButton2.Enabled = False
End Sub
-----------
问题3，麻烦一些，需要增加一模块，模块中定义两个全局变量：

Public com1, com2

然后将下面的代码复制入thisWorkbook 的代码窗中：
--------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet1.CommandButton1.Enabled = com1
Sheet1.CommandButton2.Enabled = com2
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
com1 = Sheet1.CommandButton1.Enabled
com2 = Sheet1.CommandButton2.Enabled
End Sub

Private Sub Workbook_Open()
com1 = Sheet1.CommandButton1.Enabled
com2 = Sheet1.CommandButton2.Enabled
End Sub
----------
当打开excel时，或点保存（不关闭excel）时，记录两个按钮的状态
当关闭excel，设置按钮为前面记录的状态

在设置 VBA控件的时候，有不少人发现控件的大小会越点抄越大，有的时候控件的文字会越点越小。归根结底是在设置控件的时候没有注意对控件的限制。只要对控件的大小和文字显示方式加以限制，那么控件就能很正常的显示了。
对应控件的限制代码为：

Private Sub CommandButton2_Click()
CommandButton2.AutoSize = False'设置控件文字大zhidao小关
CommandButton2.AutoSize = True'设置控件文字大小开
CommandButton2.Width = 144'设置控件宽
CommandButton2.Height = 36'设置控件高
End Sub
没有启用宏吧

通常，按钮的大小在设定之后是不会“自己”改变的，如果点击后出现变小的情况，请检查程序代码、操作中是否改变了显示分辨率等。

如果不确定原因，可以把具体的原文件上传，实际测试一下。