Worksheet.CommandButton 生成方法未找到错误

Question

对于以下代码，我收到此错误

未找到方法或数据成员。

Private Sub Workbook_Open()
    Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")

    With ws1.CommandButton1   ' Error apears here
        'Set Top/Height/Width/Left
    End With
End Sub

以下代码有效：

Private Sub Workbook_Open()
    With Worksheets("Sheet1").CommandButton1
         'Set Top/Height/Width/Left
    End With
End Sub

我想写一个更短的宏，而不是总是写Worksheets("...").CommandButton..

Answer 1

您可以使用以下方法来做同样的事情：

Private Sub Workbook_Open()
    Dim obj As Object
    Set obj = Sheet1.CommandButton1
    With obj   ' Error apears here
        'Set Top/Height/Width/Left
    End With

End Sub

我在示例中所做的是使用工作表的代码名称而不是常规名称。

我认为您发布的第一个版本不起作用的原因是 CommandButton1 不是工作表对象模型的一部分。