アドインで表示した印章をマクロで扱いたい

印鑑を押すマクロ”電子印鑑”をアドインに登録したのですが、その印鑑をマクロ内で使う方法が解りません、マクロの記録では、
ActiveSheet.Shapes("Group 3").Select
と記録されます。
これを任意のセルに貼り付けるにはどうすればよいのでしょうか？
よろしくお願いします。

No.1 回答者： n_na_tto 回答日時： 2009/03/14 20:27

【最後】に挿入した図形をB10に移動、サイズ調整するなら..

Sub test()
Dim myRng As Range
Set myRng = Range("B10")
With ActiveSheet.Shapes
　With .Item(.Count) '最後に挿入した図形
　　.LockAspectRatio = True
　　.Left = myRng.Left
　　.Top = myRng.Top
　　.Width = myRng.Width
　　If .Height > myRng.Height Then
　　　.Height = myRng.Height
　　End If
　End With
End With
End Sub

シート上の複数の【グループ図形】をB列の上から順にはめ込んでいくなら

Sub test2()
Dim Shp As Shape
Dim myRng As Range
Dim n As Long
n = 1
For Each Shp In ActiveSheet.Shapes
　With Shp
　　If .Type = msoGroup Then
　　　Set myRng = Cells(n, 2)
　　　.LockAspectRatio = True
　　　.Left = myRng.Left
　　　.Top = myRng.Top
　　　.Width = myRng.Width
　　　If .Height > myRng.Height Then
　　　　.Height = myRng.Height
　　　End If
　　　n = n + 1
　　End If
　End With
Next
End Sub

この回答への補足

申し訳ありません出した、質問に不備がありました。
印章は４～１０カ所押すようになります。
２文字のタイプは
ActiveSheet.Shapes("AutoShape 7").Select
Selection.Characters.Text = "回覧"
With Selection.Characters(Start:=1, Length:=2).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 24
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
と記録されるのですが、一文字のタイプは
ActiveSheet.Shapes("Group 3").Selectとしか記録されません。
Shapesの意味も使い方も解らない為ネットで調べたのですが見つかりませんでした。
この一文字タイプの情報を入手して複数カ所に押印する方法をお願いします。

補足日時：2009/03/14 21:57