関数・メソッド

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

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

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

 

Shapes.AddChart2メソッド

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

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

 

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

XlChartType値説明
xlLine4折れ線
xlpie5円グラフ
xlcolumnclustered51集合縦棒
xlColumnStacked52積み上げ縦棒
xlbarclustered57集合横棒
xlBarStacked10059100％積み上げ横棒

 

Chart.SetSourceDataメソッド

構文
Object.SetSourceData (Source, PlotBy)

ObjectChart オブジェクトを表す変数です。
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

 

関連記事

 

コメント

タイトルとURLをコピーしました