グラフをコピーして画像で貼り付け後にサイズ変更

2021-09-29

エクセルのグラフをコピーして画像で別シートへ貼り付け、サイズを変更を自動で実行する方法です。

グラフ内に図形等を入れる場合は、作成方法によってグラフの選択方法が異なります。

グラフオブジェクトのみの場合

グラフ内に図形等の挿入がない場合の例です。

操作内容

2つのシートがあります。

貼付先：グラフの画像を貼り付けるシート
グラフ：コピーするグラフがあるシート

シート「グラフ」にあるグラフをコピーします。

シート「貼付先」のセルA1に画像として貼り付け、サイズを変更します。

サンプルコード

Sub sample1()
   Dim sWS As Worksheet: Set sWS = ActiveSheet
   Dim hWS As Worksheet: Set hWS = Worksheets("貼付先")
   
   sWS.ChartObjects(1).CopyPicture 
   hWS.Activate   
   With hWS
        .Cells(1, 1).Select
        .Paste
      With Selection.ShapeRange
         .LockAspectRatio = msoFalse
         .Height = 100
         .Width = 200
      End With
   End With
End Sub

シート「貼付先」をアクティブにしない方法です。さらに貼り付けた図の名前を「図」に変更します。

Sub sample2()
   Dim sWS As Worksheet: Set sWS = ActiveSheet
   Dim hWS As Worksheet: Set hWS = Worksheets("貼付先")
   Dim shp As Shape

   sWS.ChartObjects(1).CopyPicture
   
   With hWS
        .Paste Range("A1")
        Set shp = .Shapes(1)
        With shp
            .Name = "図"
         .LockAspectRatio = msoFalse　
            .Height = 100
            .Width = 200
        End With
    End With
   Set shp = Nothing
End Sub

連続で貼り付ける場合は、指定した位置からずれることがあります。

VBAで画像（図形・オートシェイプ）の位置をずらさずに配置する