VBA～図形を同じ位置に複製しよう～Excel

VBAで図形を同じ位置に複製したい場合は、Shape.Duplicateメソッドで図形を複製し、LeftプロパティとTopプロパティで複製した図形の左位置と上位置を複製元の左位置と上位置に設定します。

下のコードを実行すると図形が同じ位置に複製されます。

Sub test1()

Dim Dshape As Shape
Set Dshape = ActiveSheet.Shapes(1).Duplicate

Dshape.Left = ActiveSheet.Shapes(1).Left
Dshape.Top = ActiveSheet.Shapes(1).Top

End Sub