初心者向け | VBAのSeriesCollectionでExcelグラフ操作を完全ガイド

With chartObj.Chart.SeriesCollection(1)
    .Values = ws.Range("B2:B5") '// データ範囲を指定
End With

With chartObj.Chart.SeriesCollection(1)
    .Name = "売上" '// データ系列の名前を設定
End With

With chartObj.Chart.SeriesCollection(2)
    .AxisGroup = xlSecondary '// 第二軸に設定
End With

With chartObj.Chart.SeriesCollection(1)
    .ChartType = xlColumnClustered '// 棒グラフ
End With

With chartObj.Chart
    .SeriesCollection(1).ChartType = xlColumnClustered '// 第一系列を棒グラフ
    .SeriesCollection(2).ChartType = xlLine           '// 第二系列を折れ線グラフ
End With

With chartObj.Chart.SeriesCollection(1).Format.Fill
    .ForeColor.RGB = RGB(0, 128, 255) '// 青色に設定
End With

Sub CustomizeSeriesCollection()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    '// シートとグラフを指定
    Set ws = ActiveSheet
    Set chartObj = ws.ChartObjects(1) '// 最初のグラフを取得

    '// 第一系列（売上）
    With chartObj.Chart.SeriesCollection(1)
        .Values = ws.Range("B2:B5")        '// 売上データ
        .Name = "売上"                    '// 系列名
        .ChartType = xlColumnClustered    '// 棒グラフ
        .Format.Fill.ForeColor.RGB = RGB(0, 128, 255) '// 色を青に設定
    End With

    '// 第二系列（利益率）
    With chartObj.Chart.SeriesCollection.NewSeries
        .Values = ws.Range("C2:C5")       '// 利益率データ
        .Name = "利益率"                  '// 系列名
        .ChartType = xlLine               '// 折れ線グラフ
        .AxisGroup = xlSecondary          '// 第二軸に設定
        .Format.Line.ForeColor.RGB = RGB(255, 0, 0) '// 線の色を赤に設定
    End With
End Sub

Sub ErrorExample()
    Dim chartObj As ChartObject

    '// グラフオブジェクトを取得（シート上に存在するグラフを前提）
    Set chartObj = ActiveSheet.ChartObjects(1)

    '// 存在しないデータ系列を操作しようとする（エラー発生）
    With chartObj.Chart.SeriesCollection(1)
        .Name = "売上" '// データ系列が存在しないためエラー
    End With
End Sub

Sub AvoidErrorExample()
    Dim chartObj As ChartObject

    '// グラフオブジェクトを取得（シート上に存在するグラフを前提）
    Set chartObj = ActiveSheet.ChartObjects(1)

    '// データ系列が1つ以上存在するかを確認
    If chartObj.Chart.SeriesCollection.Count > 0 Then
        '// データ系列が存在する場合のみ操作
        With chartObj.Chart.SeriesCollection(1)
            .Name = "売上"
        End With
    Else
        '// データ系列が存在しない場合の処理
        MsgBox "データ系列が存在しません", vbExclamation
    End If
End Sub

Sub ChangeToPieChartWithValidation()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim seriesCount As Integer

    '// アクティブシートの最初のグラフを取得
    Set ws = ActiveSheet
    Set chartObj = ws.ChartObjects(1)

    '// データ系列の数を確認
    seriesCount = chartObj.Chart.SeriesCollection.Count

    If seriesCount = 1 Then
        '// 系列が1つの場合のみ円グラフに変更
        chartObj.Chart.ChartType = xlPie
        MsgBox "グラフの種類を円グラフに変更しました。確認してください。", vbInformation
    Else
        '// 系列が複数ある場合は変更不可
        MsgBox "円グラフは1つのデータ系列のみをサポートします。系列を減らして再実行してください。", vbExclamation
    End If
End Sub

Sub SetSecondaryAxis()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    '// アクティブシートの最初のグラフを取得
    Set ws = ActiveSheet
    Set chartObj = ws.ChartObjects(1)

    '// 第一系列（売上）を第一軸に設定
    With chartObj.Chart.SeriesCollection(1)
        .AxisGroup = xlPrimary '// 第一軸
        .Name = "売上"
        .ChartType = xlColumnClustered '// 棒グラフ
    End With

    '// 第二系列（利益率）を第二軸に設定
    With chartObj.Chart.SeriesCollection(2)
        .AxisGroup = xlSecondary '// 第二軸
        .Name = "利益率"
        .ChartType = xlLine '// 折れ線グラフ
    End With

    MsgBox "複合グラフの軸設定が完了しました！", vbInformation
End Sub

Sub CreateComboChartWithSecondaryAxis()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    '// アクティブシートとデータ範囲を指定
    Set ws = ThisWorkbook.Sheets(1)

    '// グラフオブジェクトを追加
    Set chartObj = ws.ChartObjects.Add(Left:=100, Top:=50, Width:=500, Height:=350)

    '// グラフの初期設定
    With chartObj.Chart
        .ChartType = xlColumnClustered '// 棒グラフとして設定
        .HasTitle = True
        .ChartTitle.Text = "売上と利益率の複合グラフ"

        '// 第一系列（売上）の設定
        With .SeriesCollection.NewSeries
            .Values = ws.Range("B2:B7") '// 売上データ
            .Name = "売上" ' 凡例名
            .AxisGroup = xlPrimary '// 第一軸に設定
            .Format.Fill.ForeColor.RGB = RGB(0, 102, 204) '// 色を青に設定
        End With

        '// 第二系列（利益率）の設定
        With .SeriesCollection.NewSeries
            .Values = ws.Range("C2:C7") '// 利益率データ
            .Name = "利益率" '// 凡例名
            .ChartType = xlLine '// 折れ線グラフに設定
            .AxisGroup = xlSecondary '// 第二軸に設定
            .Format.Line.ForeColor.RGB = RGB(255, 0, 0) '// 線の色を赤に設定
        End With

        '// X軸タイトルを設定
        With .Axes(xlCategory)
            .HasTitle = True
            .AxisTitle.Text = "月別"
        End With

        '// 第一Y軸タイトルを設定
        With .Axes(xlValue)
            .HasTitle = True
            .AxisTitle.Text = "売上 (円)"
        End With

        '// 第二Y軸タイトルを設定
        With .Axes(xlValue, xlSecondary)
            .HasTitle = True
            .AxisTitle.Text = "利益率 (%)"
        End With
    End With

    MsgBox "複合グラフを作成しました！", vbInformation
End Sub

Sub ChangeColumnChartToLineChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim series As Series

    '// アクティブシートの最初のグラフを取得
    Set ws = ActiveSheet
    Set chartObj = ws.ChartObjects(1)

    '// データ系列が存在するか確認
    If chartObj.Chart.SeriesCollection.Count > 0 Then
        '// 各データ系列を順番に折れ線グラフに変更
        For Each series In chartObj.Chart.SeriesCollection
            series.ChartType = xlLine '// 折れ線グラフに変更
        Next series

        MsgBox "グラフを棒グラフから折れ線グラフに変更しました！", vbInformation
    Else
        MsgBox "データ系列が存在しません。", vbExclamation
    End If
End Sub

Sub AdjustSecondaryAxisScale()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    '// アクティブシートの最初のグラフを取得
    Set ws = ActiveSheet
    Set chartObj = ws.ChartObjects(1)

    '// 第二軸の最小値と最大値を設定
    With chartObj.Chart.Axes(xlValue, xlSecondary)
        .MinimumScale = 50
        .MaximumScale = 100
    End With

    MsgBox "第二軸のスケールを調整しました！", vbInformation
End Sub