エクセルVBA初心者です。 初歩的な質問で恐縮ですが、VBAで図をシート1からシート2に移動できませ

エクセルVBA初心者です。
初歩的な質問で恐縮ですが、VBAで図をシート1からシート2に移動できません。
下記の間違いをご指摘頂けたらと思います。
(下記のプログラムだと、シート1の中で移動するのみで…)

Dim myShape As Shape
For Each myShape In Worksheets("シート1").Shapes
If myShape.TopLeftCell.Address(0, 0)="A8" Then
myShape.Left = Worksheets("シート2").Range("A6").Left
myShape.Top = Worksheets("シート2").Range("A6").Top
End If
Next
End Sub

No.1 回答者： t_fumiaki 回答日時： 2017/11/18 13:23

移動だと結構難しい。

Copy&Pasteして、元を削除でドーでしょう。
結果は同じだからよしカモ。

Dim myShape As Shape
For Each myShape In Worksheets("Sheet1").Shapes
If myShape.TopLeftCell.Address(0, 0) = "A8" Then
Selection.Copy
With Worksheets("Sheet2")
.Select
.Range("A6").Select
.Paste
End With
myShape.Delete

End If
Next

この回答へのお礼

ありがとうございます。やはり、その手ですね。参考にさせています。

お礼日時：2017/11/19 00:41