excel - 如何在不知道工作表名称的情况下使用 Onaction VBA 命令？

Question

我正在尝试使用以下宏将 vba 代码分配给形状。

使用代码时出现运行时错误 438“对象不支持此属性或方法”

我的工作表编号总是改变，所以我不能将它硬编码到下面的代码中。

这是我正在使用的代码:

Sub assignCodeToShape()
Dim x As Integer
x = getSheetNumber
ActiveSheet.Shapes("fileShape").OnAction = Sheets(x) & ".CommandButton1_Click"
End Sub

Function getSheetNumber as Integer()
    getSheetNumber =ActiveSheet.Index
End Function

Answer 1

你可以这样做:

With ActiveSheet
    .Shapes("fileShape").OnAction = .CodeName & ".CommandButton1_Click"
End With