エクセル VBA グラフインデックス番号の決まり方（Excel VBA） Excel

【本日のミッション】

Excel VBA グラフのインデックス番号がどのようにして決定されるかを解明せよ。

1 ミッションの概要
2 プロシージャ
3 グラフのインデックス番号は、グラフの重なり順（配置順）で決まる
4 グラフが削除されるとインデックス番号は繰り上げされる
5 ChartObject.Index プロパティ
6 参照

ミッションの概要

Excel VBA グラフのインデックス番号がどのようにして決定されるのかを解明せよ、というのが今回のミッションです。

今回は、シート内の全グラフのインデックス番号を、グラフタイトルに表示させ、インデックス番号がどのように決定されるかを解明していきます。

グラフには名前を付けています。左上「グラフ 1」右上「グラフ 2」左下「グラフ 3」右下「グラフ 4」です。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
グラフのタイトルに、「“Index：” & グラフのインデックス番号」を表示させます。

■■■スポンサーリンク■■■

プロシージャ

シート内全グラフのインデックス番号を、「“Index：” & グラフのインデックス番号」という表記で、グラフタイトルに表示させるコードです。

Sub グラフのインデックス番号をグラフタイトルに表示()

    '【変数】
    Dim c_ct As Long            'グラフカウント
    
    '1つ目のグラフから順に処理
    For c_ct = 1 To ActiveSheet.ChartObjects.Count
    
        'グラフインデックス番号をグラフタイトルに表示
        ActiveSheet.ChartObjects(c_ct).Chart.ChartTitle.Text = "Index：" & ActiveSheet.ChartObjects(c_ct).Index
    
    Next c_ct
    
End Sub

グラフのインデックス番号は、グラフの重なり順（配置順）で決まる

グラフのインデックス番号は、グラフオブジェクトの重なり順（配置順）で決まるようです。
オブジェクトの重なり順（配置順）を確認するには、［ホーム］タブ－［編集］－［検索と選択］ー［オブジェクトの選択と表示］をクリックします。

画面右に、「選択」ウィンドウが表示されます。

一番下の「グラフ 1」は、このシート内で最背面のグラフになります。
一番上の「グラフ４」は、このシート内で最前面のグラフになります。

グラフのインデックス番号は、この「選択」ウィンドウのオブジェクトの並びによって決定されます。最背面のグラフからインデックス番号が「1、2、3、4・・・」となっています。

「選択」ウィンドウのグラフの並び順は、オブジェクトの重なり順になっています。
一番下の「グラフ 1」は、そのシートの中で最背面に配置されています。

同じグラフを使って、グラフオブジェクトの重なり順（配置順）を変えてみましょう。オブジェクトの配置順を変更する方法はいくつかあります。

「選択」ウィンドウで、移動させたいグラフ名を左クリックし、配置したい位置までドラッグします。（挿入位置に緑の横棒が表示されるので、そこで左クリックを離します。）

または、グラフを右クリックし、「最前面へ移動」「最背部へ移動」「前面へ移動」「背面へ移動」を使用して、オブジェクトの重なり順を変更します。

「グラフ 1」から「グラフ 4」の重なり順（配置順）を逆にしました。
この状態で、グラフのインデックス番号をグラフタイトルに表示させます。（「グラフのインデックス番号をグラフタイトルに表示」プロシージャを実行します。）

「選択」ウィンドウの一番下（最背面）に持ってきた「グラフ 4」から順に、インデックス番号が「1、2、3、4・・・」となっています。

同じグラフでも、重なり順（配置順）が違うと、インデックス番号が変わるんですね。

■■■スポンサーリンク■■■

グラフが削除されるとインデックス番号は繰り上げされる

グラフが削除されると、インデックス番号は繰り上げされます。

右上の「グラフ 2」（インデックス番号：2）を削除して、「グラフのインデックス番号をグラフタイトルに表示」プロシージャを実行してみます。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
インデックス番号「2」のグラフ2が削除されると、
インデックス番号「1」のグラフ→グラフ2よりも背面のため変更なし
インデックス番号「3」のグラフ→インデックス番号「2」に変更
インデックス番号「4」のグラフ→インデックス番号「3」に変更
という結果になりました。

ChartObject.Index プロパティ

ChartObjectオブジェクト のインデックス番号を返します。

参照

■■■スポンサーリンク■■■