VBA Active-Xbutton随着每一个动作而变大

我有一个包含多个Active-Xbutton的Excel工作表。 每当我点击一个button/执行一个动作，button将继续变大，每一个动作。

起初，这并没有发生在我的办公桌（笔记本电脑在两个大屏幕的docker），但当我移动和使用我的笔记本电脑上的程序，突然开始发生。 我发现的唯一解决方法是在代码中硬连接位置。 我觉得必须有一个解决scheme。

以下是我的代码示例。

Private Sub SpinButton1_SpinDown() Dim myCell As Range Dim myRange As Range Set myRange = Selection SpinButton1.Height = 45 SpinButton1.Width = 39 SpinButton1.Left = 283.5 SpinButton1.Top = 328.5 For Each myCell In myRange myCell.Value = myCell.Value - 1 Next myCell End Sub 

Answer 1

这是某些版本的Office中的Microsoft错误。 不是100％确定您的版本是否受到影响，但您可以在此处查看： http ： //support.microsoft.com/kb/2598259

该修补程序也可以从那里下载。

另外，除非你想用漂亮的装饰品制作五颜六色的button，否则不build议使用ActiveXbutton。 即使那样你也可以使用同样的效果

• 图像看起来像你想要的button（阴影和所有的3D效果）
• 设置MouseOver工具提示button的正确外观和领域
• 为点击行为分配macros等

Answer 2

我有同样的问题。 这是非常零星的。 我有两个Excel工作簿，每个都有类似的button。 这只发生在其中一个，但是每次我打开它都会发生。 我find了一种解决办法。 我打开一个空白的Excel文档，然后打开受影响的文档，button不再改变大小。 当我打开第二个时，我必须用已经打开的文件将它拖入窗口。 如果我双击它，它会在新窗口中打开，问题依然存在。