excel - 我尝试在 Excel 中通过 VBA 创建旋转按钮，但它给了我一个 "automation error, catastrophic failure"？

Question

Sub Test()
    Dim spinButton As Object
    Set spinButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.SpinButton.1", Link:=False, DisplayAsIcon:=False, Left:=276, Top:=58.5, Width:=12.75, Height:=25.5)
    spinButton.Object.Min = 1
    spinButton.Object.Max = 100
    spinButton.LinkedCell = "B2"
End Sub

我使用上面的 VBA 代码的目标是创建一个简单的旋转按钮，它将单元格“B2”的值更改 1。

当我将代码作为宏运行时，它会给出以下错误警告:

其中they write about on the MS website here .

问题是，我的代码有效。例如，它在正确的位置创建一个旋转按钮，添加正确的属性，并在我单击旋转按钮时更改 B2 单元格的值。

我正在使用一个全新的文件，其中没有任何内容。没有其他宏/模块和完全空的电子表格。如果有任何差异，我会在“ThisWorkbook”中使用我的 VBA 代码:

Answer 1

spinButton.Object.Min = 1 
spinButton.Object.Max = 100
spinButton.LinkedCell = "B2"

您收到该错误是因为您事先将最小值设置为 1，然后链接到没有值的单元格。如果你做相反的事情，那么它就会起作用

spinButton.LinkedCell = "B2"

spinButton.Object.Min = 1
spinButton.Object.Max = 100