_Click() событие не срабатывает sub VBA Excel

Question

Я добавил прямоугольную форму в таблицу. Теперь я хочу использовать макрос в событии RectangleA_Click(). Я знаю, что имя форма является RectangleA как у меня ниже суб:

Sub f() 
Dim Shape As Shape 
For Each Shape In ActiveSheet.Shapes 
    Debug.Print Shape.Name 
Next 
End Sub 

Я написал код:

Private Sub RectangleA_Click() 
    MsgBox "hello" 
End Sub 

В соответствующем объекте листа пространства в редакторе. При нажатии на форму подпрограмма не вызывается.

Я знаю, что я могу назначить это, используя правый клик> назначить макрос, но предпочел бы избежать этого, поскольку он кажется ненужным шагом. Я также знаю, что есть элементы Active X, которые автоматически назначают макрос, и я предпочел бы избежать этого, если это возможно.

Answer 1

Нечто подобное может работать:

Sub AssignMacroToShape() 
    Set shpTemp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1680#, 594#, 120#, 74.25) 
    shpTemp.OnAction = ActiveWorkbook.Name & "!Macro Name" 
End Sub 

Но это будет намного проще просто щелкните правой кнопкой мыши> Назначить макрос.

Этот вышеприведенный код полезен, если вам нужно создать форму, а затем назначить макрос после создания.

Вы можете посмотреть событие OnAction, чтобы получить ответ на конкретные вопросы, если это не поможет.