【ExcelVBA】グラフをセルの角に合わせて移動またはサイズを変更する

こんなあなたにおすすめ

Excelでグラフを作成したときに、見た目を意識して、セルにピッタリ合わせたいということがあります。

グラフを作成する方法については、下記の記事で解説していますので、ご参照ください。
>>【ExcelVBA】グラフを作成する方法グラフ作成、タイトル、軸の値、軸タイトル

今回は、セルに合わせてグラフを配置したり、サイズを調整する方法について解説します。

セルに合わせてグラフを配置、サイズを変更

合わせたいセルの位置を取得し、サイズをセルに合わせることで、セルにぴったりのグラフができます。

セル位置の取得方法は、以下の通りです。

Object.Top    '上端からの距離
Object.Left    '左端からの距離

試しに、A1セルとC3セルの上端からの距離、左端からの距離を取得してみましょう。

Sub tes1()

    '左上からA1セルまでの距離
    Debug.Print Range("A1").Top     '0
    Debug.Print Range("A1").Left    '0
    
    '左上からC3セルまでの距離
    Debug.Print Range("C3").Top     '28.5
    Debug.Print Range("C3").Left    '108

End Sub

実際に、グラフをセルに合うように調整してみましょう。

Sub test2()

    Dim graphRange  As Range    '変数を定義する
    
    Set graphRange = Range("A1:D10")         'グラフサイズの範囲
    
    With ActiveSheet.ChartObjects(1)  'アクティブシートの1つめのグラフ
        .Top = graphRange.Top                '上端を合わせる
        .Left = graphRange.Left              '左端を合わせる
        .Width = graphRange.Width            '横幅を設定する
        .Height = graphRange.Height          '高さを設定する
    End With
    
End Sub

↓実行前