Поймать гиперссылку формы Нажмите на лист Excel

Question

У меня есть отдельная подпрограмма на листе Excel, которая выглядит следующим образом:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Call removeClient(Target.Parent.Row)
End Sub

Она успешно перехватывает обычные гиперссылки.Однако фигуры с гиперссылками не будут вызывать это действие при вызове.Поскольку эти фигуры генерируются динамически, я также не могу использовать событие «Private Sub Shape1_Click».

Есть ли обходной путь?

Answer 1

Вам необходимо использовать свойство .onAction

вроде так

Sub t()

Dim s As Shape

Set s = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 400, 70, 50, 50)
s.OnAction = "test_macro"

End Sub

Sub test_macro()
    MsgBox "hello"
End Sub