関数・メソッド

ピボットグラフを作成【Shapes.AddChart2】【Chart.SetSourceData】【ExcelVBA】

ピボットグラフを作成する

VBAでピボットグラフを作るには Shapes.AddChart2メソッド でグラフの設定をし、
Chart.SetSourceDataメソッド でどのデータを使うのか指定します。

 

Shapes.AddChart2メソッド

構文
Object.AddChart2 (Style, XlChartType, Left, Top, Width, Height, NewLayout)

Object Shapesオブジェクトを表す変数です。
Style グラフのスタイルです。 既定のスタイルを取得するには、”-1″ を使用します。
XlChartType XlChartType で指定するグラフの種類です。
Left グラフの左端の 位置をポイント単位で指定します。
Top グラフの上端の位置をポイント単位で示します。
Width グラフの幅をポイント単位で示します。
Height グラフの高さをポイント単位で示します。
NewLayout NewLayout が True の場合、タイトルはオンになり、複数系列がある場合は汎用がオンになります。

 

XlChartType については、コチラの一覧をご覧ください。
よく使うグラフだけ抜粋しておきます。

XlChartType 値 説明
xlLine 4 折れ線
xlpie 5 円グラフ
xlcolumnclustered 51 集合縦棒
xlColumnStacked 52 積み上げ縦棒
xlbarclustered 57 集合横棒
xlBarStacked100 59 100％積み上げ横棒

 

Chart.SetSourceDataメソッド

構文
Object.SetSourceData (Source, PlotBy)

Object Chart オブジェクトを表す変数です。
Source 元データを含むセル範囲を指定します。必須です。
PlotBy データをプロットする方法を指定します。 xlColumns または xlRows です。

 

ピボットグラフを作成するサンプルコード

Public Sub PivotGraph()
'■ピボットグラフを作成する
  Dim shapes As Shape
  With ActiveSheet
      Set shapes = .shapes.AddChart2(XlChartType:=xlColumnStacked) '集合棒グラフ
      shapes.Chart.SetSourceData Source:=Sheets(1).Range("E1")　   'ピボットテーブルの位置
  End With
End Sub

 

関連記事

 

コメント