図形をコピーするマクロ(エクセル)

質問

以下のマクロで、シート上にある図形(四角形 1)を、選択状態にあるセルの上に移動させることができます。

Sub test()

Dim seru As Range
On Error GoTo Errorline
Set seru = Range(ActiveCell.Address)
ActiveSheet.Shapes("四角形 1").Select
With Selection.ShapeRange
.Left = seru.Left
.Top = seru.Top
End With
Errorline:

End Sub

移動ではなくコピーにするには、どう変えればいいでしょうか？

回答No.1

toshi_2000 · ベストアンサー

ActiveSheet.Shapes("四角形 1").Duplicate.Select
でどうでしょう。

お礼

うまくいきました。
有難うございました。