Erreur d'utilisation de propriété invalide sur Shape.OnAction

Question

J'essaye de mettre une macro à une forme de vba mais j'ai reçu cette erreur "l'utilisation invalide de la propriété", pourquoi?
Classe Code CContainer:

Option Explicit 
Sub CreateContainer() 
Dim s As Shape ' shape container 
Dim t As Shape 'text container 
Dim sr As Variant 'container for grouping 
Dim w As Worksheet 
Set w = ActiveWorkbook.Worksheets(1) 
Set s = w.Shapes.AddShape(msoShapeRectangle, 10, 10, 100, 100) 
With s 
s.Fill.ForeColor.RGB = RGB(255, 255, 255) 
s.Line.ForeColor.RGB = RGB(100, 100, 100) 
s.Line.DashStyle = msoLineDash 
s.Line.Style = msoLineSingle 
s.Line.Weight = 0.5 
s.Name = "ShapeExample" 
End With 
Set t = w.Shapes.AddTextbox(msoTextOrientationHorizontal, s.Left + 10, s.Top + 10, s.Width - 20, 20) 
With t 
t.Line.ForeColor.RGB = RGB(100, 100, 100) 
t.Line.DashStyle = msoLineDash 
t.TextFrame.Characters.Text = "Connector" 
t.TextFrame.Characters.Font.Size = 10 
t.TextFrame.HorizontalAlignment = xlHAlignCenter 
t.Name = "TextShapeExample" 
End With 
Set sr = w.Shapes.Range(Array("ShapeExample", "TextShapeExample")).Group 
sr.Name = "ContainerExample" 

t.OnAction "MsgCall" '<-- here the error occurs 
End Sub 

Sub MsgCall() 
MsgBox "Hello There" 
End Sub 

et voici le module d'où je veux l'appeler:

Option Explicit 

Sub example() 
Dim connector As CContainer 
Set connector = New CContainer 
connector.CreateContainer 

End Sub 

Answer 1

j'ai changé votre code un peu à ceci:

With Worksheets(1).Shapes(1) 

.OnAction "MsgCall" '<-- no more error here 

End With 

Maintenant, je reçois une erreur différente: Grouping is disabled for selected shapes pour ce code:

Set sr = w.Shapes.Range(Array("ShapeExample", "TextShapeExample")).Group