【ExcelVBA】アクティブグラフのインデックス番号を取得する方法

こんなあなたにおすすめ

Excelでグラフを扱っていると、アクティブなグラフのインデックス番号を取得したいということがあります。

「parent.index」を使うことで、グフラのインデックス番号を取得することができます。

今回は、「parent.index」用いてグラフのインデックス番号を取得する方法について解説します。

アクティブグラフのインデックス番号を取得する方法

「parent.index」を使うことで簡単にグラフのインデックス番号を取得できます。

Sub getGraphIndex()

    Dim graphIndex As String     'グラフのインデックス番号を格納する変数
    Dim cht As Object           'チャートオブジェクトを格納する変数

    Set cht = ActiveChart       'アクティブグラフを取得
    
    If cht Is Nothing Then  'アクティブグラフがない場合の処理
        MsgBox "グラフが選択されていません。"
    Else:   'それ以外の処理
        graphIndex = cht.Parent.Index    'グラフのインデックス番号を取得
        MsgBox graphIndex        'グラフのインデックス番号を出力
    End If

End Sub

【シート構成】

【未選択】

【グラフ1】

【グラフ2】

取得したインデックス番号で実際に確認

先ほど取得したインデックス番号でグラフを操作できるか確認してみましょう。

コードの15～22行目あたりでグラフの数値軸を変更するコードを追加しています。

Sub getGraphIndex()

    Dim graphIndex As String     'グラフ名を格納する変数
    Dim cht As Object           'チャートオブジェクトを格納する変数

    Set cht = ActiveChart       'アクティブグラフを取得
    
    If cht Is Nothing Then  'アクティブグラフがない場合の処理
        MsgBox "グラフが選択されていません。"
    Else:   'それ以外の処理
        graphIndex = cht.Parent.Index    'グラフのインデックス番号を取得
        MsgBox graphIndex        'グラフ名を出力
    End If

'---------------------------------------------------------------------------------------------
    With ActiveSheet.ChartObjects(graphIndex).Chart
        .Axes(xlCategory).MinimumScale = 0
        .Axes(xlCategory).MaximumScale = 10
        .Axes(xlCategory).MajorUnit = 5
        .Axes(xlValue).MajorUnit = 5
    End With
'---------------------------------------------------------------------------------------------

End Sub

【実行前】