VBA_棒グラフを挿入

・アクティブシートの中央に挿入される。
・実行後、グラフは選択状態ではない。

 

ActiveSheet.Shapes.AddChart

※ 標準グラフ (  一般的に棒グラフ ) が作成される。

 

ActiveSheet.Shapes.AddChart.Chart.ChartType = xlColumnClustered

※ 折れ線グラフの場合は、xlColumnClustered を xlLine に変える。

 

コードの書き方は 2 通り。

データの範囲を選択してからグラフを作成するか、

    Sub test01()
        Workbooks.Open ("操作対象ファイルのフルパス")
        Worksheets("Sheet1").Activate
        Range("A1:B4").Select
       
        'ActiveSheet.Shapes.AddChart
        ActiveSheet.Shapes.AddChart.Chart.ChartType = xlColumnClustered
    End Sub

f:id:koshinRan:20180110004617p:plain

AddChart でも ChartType でも結果は同じ。AddChartコメントアウトしてある。

 

下記のようにグラフを作成してからデータ範囲を指定する書き方がある。

    Sub test01()
        Workbooks.Open ("フルパスのファイル名")
        Worksheets("Sheet1").Activate

        With ActiveSheet.Shapes.AddChart.Chart
            .ChartType = xlColumnClustered
            .SetSourceData Range("A1:B4")
        End With
    End Sub

f:id:koshinRan:20180110004642p:plain

 

 

こちらから。
http://officetanaka.net/excel/vba/graph/01.htm
http://officetanaka.net/excel/vba/graph/12.htm
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/xlcharttype-enumeration-excel

 

以上。