[教えて！VBA] 第4回 シート上の図形をコピーして他のセル上に貼り付けするにはどうすればいいの？？

1Set myShape = ActiveSheet.Shapes("スマイル１")'//not working!

 1Sub 名前を名付けて図形を選択()
 2    Dim shapeSmile As Shape
 3    Dim shapeStar As Shape
 4    Dim shapeNG As Shape
 5    
 6    Set shapeSmile = ActiveSheet.Shapes("笑顔")
 7    Set shapeStar = ActiveSheet.Shapes("星")
 8    Set shapeNG = ActiveSheet.Shapes("禁止")
 9    
10    Debug.Print shapeSmile.TopLeftCell.Address '//笑顔マーク図形の座標位置
11    Debug.Print shapeStar.TopLeftCell.Address '//星マーク図形の座標位置
12    Debug.Print shapeNG.TopLeftCell.Address '//禁止マーク図形の座標位置
13End Sub
14

 1Sub 図形の置かれた位置のセル座標から選択()
 2    Dim shapeSmile As shape
 3    Dim shapeStar As shape
 4    Dim shapeNG As shape
 5    
 6    Dim myShape As Object
 7    
 8    For Each myShape In ActiveSheet.Shapes
 9        Select Case myShape.TopLeftCell.Address
10        '//笑顔マーク図形の座標に一致する場合
11        Case "$G$4"
12            Set shapeSmile = myShape
13        '//星マーク図形の座標に一致する場合
14        Case "$I$4"
15            Set shapeStar = myShape
16        '//禁止マーク図形の座標に一致する場合
17        Case "$K$4"
18            Set shapeNG = myShape
19        End Select
20        
21    Next
22    
23    Debug.Print shapeSmile.TopLeftCell.Address '//笑顔マーク図形の座標位置
24    Debug.Print shapeStar.TopLeftCell.Address '//星マーク図形の座標位置
25    Debug.Print shapeNG.TopLeftCell.Address '//禁止マーク図形の座標位置
26    
27End Sub

 1Sub ペースト先のセルを選択してペースト()
 2    Dim shapeSmile As shape
 3    Dim shapeStar As shape
 4    Dim shapeNG As shape
 5    
 6    Set shapeSmile = ActiveSheet.Shapes("笑顔")
 7    Set shapeStar = ActiveSheet.Shapes("星")
 8    Set shapeNG = ActiveSheet.Shapes("禁止")
 9    
10    '//笑顔マークをペースト
11    shapeSmile.Copy
12    
13    '////1. G5セル（ペーストしたいセルアドレス）を選択
14    ActiveSheet.Range("G5").Select
15    '////2. ペーストの実行
16    ActiveSheet.Paste
17    '////以下繰り返し
18    ActiveSheet.Range("G6").Select
19    ActiveSheet.Paste
20    
21    '//星マークをペースト
22    shapeStar.Copy
23    ActiveSheet.Range("I5").Select
24    ActiveSheet.Paste
25    ActiveSheet.Range("I6").Select
26    ActiveSheet.Paste
27    
28    '//禁止マークをペースト
29    shapeNG.Copy
30    ActiveSheet.Range("K5").Select
31    ActiveSheet.Paste
32    ActiveSheet.Range("K6").Select
33    ActiveSheet.Paste
34    
35End Sub

 1Sub シートにペーストしてから図形を移動()
 2    Dim shapeSmile As shape
 3    Dim shapeStar As shape
 4    Dim shapeNG As shape
 5    
 6    Set shapeSmile = ActiveSheet.Shapes("笑顔")
 7    Set shapeStar = ActiveSheet.Shapes("星")
 8    Set shapeNG = ActiveSheet.Shapes("禁止")
 9    
10    '//笑顔マークをペースト
11    shapeSmile.Copy
12    '////1. ペーストの実行
13    ActiveSheet.Paste
14    '////2. ペーストした図形を指定位置（ペーストしたいセルアドレス位置）に移動
15    With Selection
16        .Top = ActiveSheet.Range("G5").Top
17        .Left = ActiveSheet.Range("G5").Left
18    End With
19    '////以下繰り返し
20    ActiveSheet.Paste
21    With Selection
22        .Top = ActiveSheet.Range("G6").Top
23        .Left = ActiveSheet.Range("G6").Left
24    End With
25    
26    '//星マークをペースト
27    shapeStar.Copy
28    ActiveSheet.Paste
29    With Selection
30        .Top = ActiveSheet.Range("I5").Top
31        .Left = ActiveSheet.Range("I5").Left
32    End With
33    ActiveSheet.Paste
34    With Selection
35        .Top = ActiveSheet.Range("I6").Top
36        .Left = ActiveSheet.Range("I6").Left
37    End With
38'
39    '//禁止マークをペースト
40    shapeNG.Copy
41    ActiveSheet.Paste
42    With Selection
43        .Top = ActiveSheet.Range("K5").Top
44        .Left = ActiveSheet.Range("K5").Left
45    End With
46    ActiveSheet.Paste
47    With Selection
48        .Top = ActiveSheet.Range("K6").Top
49        .Left = ActiveSheet.Range("K6").Left
50    End With
51    
52    
53End Sub
54
55