Excel VBA 質問スレッド №2100 (未解決)

グラフのX軸,Y軸(系列名、項目名)の参照範囲の指定方法

投稿者 : ゆーじ     投稿日時 : 2025/03/28(Fri) 14:52:27     OS : 未指定     EXCEL : 未指定
EXCELでA列:見出し、B列:追番、C列:日付、D~G列:各集計数値が入っている表に対して、積み上げでグラフを作成しています。


グラフ化したい範囲は、D列以降で、X軸に追番ごとの棒グラフ、Y軸はD列以降の各数値の数量とします。

グラフを作成すると、X軸に見出し、追番、日付が表示されてしまっており、長く邪魔な見出しを表示しない様に変更したいのですが、
項目名や系列名が複数行、複数列ある場合に、どの様に参照範囲を指定するのか教えてください。

スポンサーリンク
[返信 1] Re : グラフのX軸,Y軸(系列名、項目名)の参照範囲の指定方法
投稿者 : tek     投稿日時 : 2025/03/29(Sat) 12:20:12
こういうこと?
Sub test()
    Dim ch As Chart
    Dim sData As Range, r追番 As Range
    Dim 追番 As String

    With ActiveSheet
        Set sData = .Range("A1").CurrentRegion
'                                                  追番と   各集計数値のみを指定します。
        Set sData = Intersect(sData, Union(sData.Columns("B"), sData.Offset(, 3)))

'       B1セルに値があると系列と判断されるためそれを空白にしておく必要あり
        Set r追番 = sData.Cells(1)
        追番 = r追番.Value                  '退避
        r追番.ClearContents

        Set ch = .ChartObjects.Add(.Range("G5").Left, .Range("G5").Top, 330, 220).Chart
        With ch
            .SetSourceData Source:=sData
            .ChartType = xlColumnStacked
            .PlotBy = xlColumns
        End With
        r追番.Value = 追番                  '復帰
    End With
End Sub

当掲示板について
  • Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
  • 記事内ではHTMLのタグは使用できません。
  • 記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
  • Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
  • Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。
スポンサーリンク
返信入力フォーム
お 名 前  :
内  容   :

ステータス  :

認証コード  : キャプチャ画像 




( 処理日時 : 2025-07-03 11:34:43 )
タイトルとURLをコピーしました