如何阻止按钮调整大小？每次单击按钮时，按钮的大小或字体大小都会发生变化。
注意：我无法锁定工作表，因为我的宏将写入工作表。
自动调整大小已关闭。我在 Windows 7（64 位）上运行 Excel 2007。
【问题讨论】：
我将以下内容用于列表框。按钮的原理相同；酌情调整。
Private Sub myButton_Click()
Dim lb As MSForms.ListBox
Set lb = Sheet1.myListBox
Dim oldSize As ListBoxSizeType
oldSize = GetListBoxSize(lb)
' Do stuff that makes listbox misbehave and change size.
' Now restore the original size:
SetListBoxSize lb, oldSize
End Sub
这使用以下类型和过程：
Type ListBoxSizeType
height As Single
width As Single
End Type
Function GetListBoxSize(lb As MSForms.ListBox) As ListBoxSizeType
GetListBoxSize.height = lb.height
GetListBoxSize.width = lb.width
End Function
Sub SetListBoxSize(lb As MSForms.ListBox, lbs As ListBoxSizeType)
lb.height = lbs.height
lb.width = lbs.width
End Sub
【讨论】：
我在onClick 的末尾添加了一些代码，因此：
CommandButton1.Width = 150
CommandButton1.Height = 33
CommandButton1.Font.Size = 11
似乎有效。
我以稍微不同的方式解决了这个问题。通过在我的主要笔记本电脑显示器上打开工作簿，然后将其移动到我的大显示器上。我假设的根本原因相同。
【讨论】：
Font.Size = 200 才能看到文本。我对微软没有印象深刻，因为这个问题似乎已经存在好几年了。
在 Excel 2007、2010 和 2013 中看到此问题
此代码可防止问题出现。每次激活活动 X 对象时都需要运行代码。
Sub Shared_ObjectReset()
Dim MyShapes As OLEObjects
Dim ObjectSelected As OLEObject
Dim ObjectSelected_Height As Double
Dim ObjectSelected_Top As Double
Dim ObjectSelected_Left As Double
Dim ObjectSelected_Width As Double
Dim ObjectSelected_FontSize As Single
ActiveWindow.Zoom = 100
'OLE Programmatic Identifiers for Commandbuttons = Forms.CommandButton.1
Set MyShapes = ActiveSheet.OLEObjects
For Each ObjectSelected In MyShapes
'Remove this line if fixing active object other than buttons
If ObjectSelected.progID = "Forms.CommandButton.1" Then
ObjectSelected_Height = ObjectSelected.Height
ObjectSelected_Top = ObjectSelected.Top
ObjectSelected_Left = ObjectSelected.Left
ObjectSelected_Width = ObjectSelected.Width
ObjectSelected_FontSize = ObjectSelected.Object.FontSize
ObjectSelected.Placement = 3
ObjectSelected.Height = ObjectSelected_Height + 1
ObjectSelected.Top = ObjectSelected_Top + 1
ObjectSelected.Left = ObjectSelected_Left + 1
ObjectSelected.Width = ObjectSelected_Width + 1
ObjectSelected.Object.FontSize = ObjectSelected_FontSize + 1
ObjectSelected.Height = ObjectSelected_Height
ObjectSelected.Top = ObjectSelected_Top
ObjectSelected.Left = ObjectSelected_Left
ObjectSelected.Width = ObjectSelected_Width
ObjectSelected.Object.FontSize = ObjectSelected_FontSize
End If
Next
End Sub
【讨论】：
Sub Shared_ObjectReset() 开头，以EndSub 结尾。
（Excel 2003）
在我看来有两个不同的问题： - 单击 ONE 按钮时调整其文本大小（尽管并非总是如此，不知道为什么），以及 - 在具有不同分辨率的显示器上打开工作簿时更改所有按钮的大小（即使回到初始显示器上仍然存在）。
至于个别调整大小问题：我发现修改按钮的一维以“恢复”它就足够了。 如：
myButton.Height = myButton.Height + 1
myButton.Height = myButton.Height - 1
你可以把它放在每个按钮的点击子（“myButton_Click”）中，或者实现它 “onClick”事件的自定义类。
【讨论】：
我在 Excel 调整大小和移动时遇到了 ActiveX 按钮和旋转的相同问题。这是在几台不同 PC 的笔记本电脑和屏幕上使用的共享电子表格。由于它是共享的，因此我无法使用宏在代码中自动重新定位和调整大小。
最终在寻找解决方案并尝试了所有可能的按钮设置之后。我发现对按钮进行分组可以立即解决问题。控件、按钮、微调器都保持在原位。我已经测试了一周，没有任何问题。只需选择控件，右键单击并分组 - 就像魔术一样工作。
【讨论】：
使用表单按钮而不是 ActiveX 按钮，ActiveX 控件在工作表上随机出现行为异常
【讨论】：
按钮宏中有选择命令吗？
在我重命名工作表中的某些单元格（包括切换按钮在其切换功能后选择的单元格）后不久，字体大小缩小了。我通过确保 Range("...").Select 包含新的单元格名称而不是坐标来解决此问题。
【讨论】：
在打开 Excel 后屏幕分辨率/设置发生变化时会发生这种情况。
例如：
我找到的唯一解决方案是关闭 Excel 并使用新的屏幕设置重新打开它。 Excel的所有实例都必须关闭，包括其他进程没有接口执行的不可见实例必须被杀死。
【讨论】：
旧问题，但对于我们这些停留在 Excel 2007 上的人来说似乎仍然是一个问题。在 ActiveX 列表框对象上遇到同样的问题，并且在每次重新计算时都会扩大其大小。 LinkCells 属性正在寻找其值的动态（偏移）范围。重组以使其处于正常范围内解决了我的问题。
【讨论】：
我在使用 Excel 2013 时遇到了这个问题。在很长一段时间内一切正常，突然之间，当我点击按钮 (ActiveX) 时，它变大了，同时字体变小了。
没有保存文件，我重新启动计算机并再次打开同一个 Excel 文件，一切都再次正常。
【讨论】：
我在打印和更改缩放后调整大小重新绘制屏幕并修复它
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = 75
【讨论】：
在 Excel 2016 中发现了同样的问题 - 能够通过更改控制按钮的高度、将其改回，然后在工作表上选择一个单元格来进行纠正。只是调整大小并不能始终如一地工作。下面的命令按钮示例 (cmdBALSCHED)
Public Sub cmdBALSCHED_Click()
Sheet3.cmdBALSCHED.Height = 21
Sheet3.cmdBALSCHED.Height = 20
Sheet3.Range("D4").Select
这会将高度重置为 20，并将按钮字体重置为找到的值。
【讨论】：
经过一番沮丧的摆弄后，以下代码帮助我解决了这个 Excel/VBA 错误。 需要注意的两个关键事项可能会有所帮助：
对于不切换的控件，您可以使用迭代器变量或其他一些方法来确保宽度和高度属性在两组相似的值之间交替，这将产生类似于切换状态更改的效果我在这种情况下使用的。
【讨论】：