◆演算したデータを使用してグラフを作成する

  グラフのデータが大きな数字(たとえば売上で1,000万、1億などの金額)の場合には
  千円や100万の単位で表示したい場合があると思います。

  表をその単位で作ればそれでおしまいですが、データを演算してグラフを作成する
  方法を説明します。

  データ系列を指定してグラフを作成する の sample5 の売上を演算して千円単位にする
  方法を説明します。

  各セルのデータを計算した結果を、Array 配列に代入します。 


        .Values = Array(Range("C2") / 1000, Range("D2") / 1000, _
                        Range("E2") / 1000, Range("F2") / 1000, _
                        Range("G2") / 1000, Range("H2") / 1000)

Sub sample8()

    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 = Array(Range("C2") / 1000, Range("D2") / 1000, _
                        Range("E2") / 1000, Range("F2") / 1000, _
                        Range("G2") / 1000, Range("H2") / 1000)
        
        '凡例の指定
        .Name = Range("B2")
        
    End With
    

End Sub