VBでグラフグループをエクスポートする

概要

詳細は省くが、以下にコード例を示す。

Dim shp
Set shp = Sheets("").Shapes("オブジェクトグループ名")
 
Dim cht
Set cht = Sheets("").ChartObjects.Add (0, 0, shp.Width, shp.Height)
 
With cht 
	shp.copyPicture Format:=xlBitmap
		.Chart.Parent.Select
		.Chart.Paste
		.Chart.Expoet "出力先のパス"
		.Delete
End With