【Excel VBA】クリップボードを経由せず図形やグラフをコピーする

クリップボードを経由せず図形やグラフをコピーする方法について説明していきます。

コピー方法

Shape.Duplicate メソッドを利用することで、クリップボードを経由せず図形やグラフをコピーできます。

サンプルコード

Sub Macro1()
    '図形をコピーする
    Dim shepeObj As Shape
    Set shepeObj = ActiveSheet.Shapes("正方形/長方形 1").Duplicate
    'コピーした図形に変更を加える
    With shepeObj
        .Name = "コピー図形"
        .Top = 100
        .Left = 100
        .Height = 300
        .Width = 100
    End With
End Sub

注意点

Shape.Duplicate メソッドを使う場合、以下の場所にはコピーできません。

• コピー元の図形やグラフを別のシートへコピーする
• コピー元の図形やグラフを別のブックへコピーする