如何在VBA中不使用ActiveSheet为按钮指定宏

错误原因分析 #

• 跨工作表调用Select方法报错原因：VBA仅支持选中当前活动工作表内的元素，未提前激活Sheet1的情况下直接选中其他工作表的按钮对象，就会触发“对象不支持该属性或方法”报错，这也是最初的代码必须切换到按钮所在工作表才能运行的核心原因。
• 单行代码赋值不生效原因：Shapes.Range(Array("Button 1"))返回的是ShapeRange集合对象，哪怕集合内只有一个元素，也无法直接对集合本身赋值OnAction属性，需要明确指定集合内的单个Shape对象再操作；如果按钮名称匹配错误也会触发该问题。

正确实现方案 #

不需要激活工作表、不需要选中元素，直接定位单个Shape对象赋值即可，代码如下：

Sub Macro1()
    ' 直接通过按钮名称定位Sheet1中的按钮对象，绑定宏
    Sheet1.Shapes("Button 1").OnAction = "Macro2"
End Sub

如果你需要保留ShapeRange的写法，调整为指定集合内元素的格式即可生效：

Sub Macro1()
    Sheet1.Shapes.Range(Array("Button 1")).Item(1).OnAction = "Macro2"
End Sub

注意：如果运行仍报错，可检查你使用的Sheet1是工作表代码名（VBA编辑器属性窗口的(Name)字段）还是工作表显示名称，如果是显示名称，请替换为Sheets("Sheet1")调用。

内容的提问来源于stack exchange，提问作者Niels Bjørn Hansen