Как я могу использовать команду 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