software&ETC

セルの値を使わずに、マクロ内で集計した配列値
を使ってグラフを作成

    Dim co As ChartObject
    Dim Name As Variant
    Dim kokugo As Variant
    Dim sugaku As Variant
    Dim eigo As Variant
   
    Name = Array("一郎", "二郎", "三郎")
   
    kokugo = Array(80, 70, 90)
   
    sugaku = Array(65, 78, 50)
   
    eigo = Array(55, 90, 80)
   
    Set co = ActiveSheet.ChartObjects.Add(10, 10, 300, 200)
   
    'グラフ形式を設定
    co.Chart.ChartType = xlColumnClustered

    '凡例非表示
    co.Chart.HasLegend = True
   
    With co.Chart.SeriesCollection.NewSeries
       
        .Name = "国語"
       
        .Values = kokugo  '１軸目の値
       
        .XValues = Name
   
    End With
   
    '二軸目の値
    With co.Chart.SeriesCollection.NewSeries
       
        .Name = "数学"
       
        .Values = sugaku
   
    End With
   
    '三軸目の値
    With co.Chart.SeriesCollection.NewSeries
       
        .Name = "英語"
       
        .Values = eigo
   
    End With

【結果】