如何用VBA程序创建饼状图

1、    如图所示，想要用VBA程序控制对表中数据生成饼状图

2、    点击“开发工具”

3、    点击“Visual Basic”

4、    双击“sheet3”,弹出右侧的对话框

5、    点击下拉菜单，选择“worksheet”

6、    点击下拉菜单，选择“BeforeDoubleClick”

7、    在程序中输入

Charts.Add     ActiveChart.ChartType = xlPie     ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("A1:B4")

8、    点击“保存”

9、    双击任一行数据

10、    这样就自动生成了饼状图了