Question

我有一张包含多个Active-X按钮的Excel工作表。每当我点击一个按钮/执行动作时，按钮将随着每个动作而变得越来越大。

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

以下是我的代码示例。

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

此修复程序也可以从那里下载。

此外，除非您想制作带有花哨装饰的彩色按钮，否则不建议使用ActiveX按钮。即使这样，您也可以使用

复制相同的效果

看起来像你想要的按钮的图像（带阴影和所有3D效果）
设置MouseOver工具提示以获取按钮的正确外观和字段
为点击行为等分配宏

Answer 2

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

VBA Active-X按钮随着每个动作变大

2 个答案: