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

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

  売上は「棒グラフ」、利益率は「折れ線グラフ」といったように、データ系列毎に
  グラフの種類を指定したい場合があります。

  Excelのグラフウィザードでやるとなかなか上手くいかなくていらいらしたことはな
  いでしょうか。

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

Sub sample5()

    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
    

End Sub