円グラフを作る

---

円グラフとは円のグラフです

Excel 2007で円グラフを作るには、次のようにします。

Sub Sample()
    ActiveSheet.Shapes.AddChart.Chart.ChartType = xlPie
End Sub

3Dの円グラフだったら、定数をxl3DPieにします。

Sub Sample()
    ActiveSheet.Shapes.AddChart.Chart.ChartType = xl3DPie
End Sub

ChartTypeプロパティに設定できる定数(グラフの種類)は、次のページを参考にしてください。

グラフの種類を変える

Excel 2003のコードは動くか

Excel 2003で棒グラフの作成をマクロ記録すると、次のようなコードが記録されます。

Sub Macro()
    Charts.Add
    ActiveChart.ChartType = xlPie
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B6")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

このコードは、Excel 2007でも問題なく動作します。