エクセルＶＢＡの図形について

質問１　ShapeRangeコレクションを作成して、そのコレクションにプロパティを設定しては。 　　　　『ShapeRange』でVisual Basic のHelpの 　　　　『ShapeRange コレクション オブジェクト』を参照してみてください。 質問２ 質問３ 　　　下記にサンプルを書いてみました。 　　　 　　　OnAction でShowNameを呼び出し、図形の名前、コネクタの始点、終点をシートに書き出しています。 　　　最後にOnActionを定義した図形の名前をメッセージボックスに出しています。 Sheet1のコードウインドウに貼り付け(Sheet1に図形がある) ↓ Sub OnActionTest() 　　Shapes(1).OnAction = "ShowName" End Sub 標準モジュールに貼り付け ↓ Public Sub ShowName() 　　Dim sp As Shape '図形 　　Dim ct As Integer 'カウンタ 　　Dim connStart As Shape 'コネクタの始点が接続する図形 　　Dim connEnd As Shape 'コネクタの終点が接続する図形 　　On Error Resume Next 　　For Each sp In ActiveSheet.Shapes 　　　　ct = ct + 1 　　　　Range("A" & ct) = sp.Name 　　　　Set connStart = sp.ConnectorFormat.BeginConnectedShape '質問(3)始点 　　　　Range("B" & ct) = connStart.Name 　　　　Set connEnd = sp.ConnectorFormat.EndConnectedShape '質問(3)終点 　　　　Range("C" & ct) = connEnd.Name 　　Next 　　MsgBox ActiveSheet.Shapes(Application.Caller).Name '質問(2)OnAction が定義された図形 End Sub