◆2系列のグラフをデータ系列毎に指定してグラフを作成する

  データ系列毎にグラフを作成する方法の続きです。

  データ系列を作成・指定して「売上」と「人件費」の棒グラフを作成する方法です。
	

Sub sample6()

    Dim ThisSheet_Name As String
    
    '現在アクティブになっているシート名を取得
    ThisSheet_Name = ActiveSheet.Name
    
    '空のグラフをアクティブになっているシートに作成する
    With Charts.Add

        .Location Where:=xlLocationAsObject, Name:=ThisSheet_Name

    End With
    
    
    '新しくデータ系列を作成します
    ActiveChart.SeriesCollection.NewSeries
    
    '作成したデータ系列に対して、
    'グラフの種類・X軸の項目・データの範囲・凡例を指定します
    With ActiveChart.SeriesCollection(1)
    
        'グラフの種類を設定 棒グラフ
        .ChartType = xlColumnClustered
        
        'X軸の項目軸を指定
        .XValues = Range("C1:H1")
        
        'データの指定
        .Values = Range("C2:H2")
        
        
        '凡例の指定
        .Name = Range("B2")
        
    End With

    '新しくデータ系列を作成します
    ActiveChart.SeriesCollection.NewSeries
    
    '作成したデータ系列に対して、
    'データの範囲・凡例を指定します
    'グラフの種類・X軸の項目は最初に作成したデータ系列と同じになります
    With ActiveChart.SeriesCollection(2)
    
        'データの指定
        .Values = Range("C3:H3")
        
        '凡例の指定
        .Name = Range("B3")
        
    End With

End Sub