VBA编程图表（二十一）

使用VBA，可以根据特定标准生成图表。下面通过一个例子来看看它如何实现。

第1步 - 输入要生成图形的数据。

第2步 - 创建3个按钮 - 一个生成条形图，另一个生成饼图，另一个生成柱形图。

第3步 - 开发一个宏来生成这些类型的图表。

' Procedure to Generate Pie Chart
Private Sub fn_generate_pie_graph_Click()
   Dim cht As ChartObject
   For Each cht In Worksheets().ChartObjects
      cht.Chart.Type = xlPie
   Next cht
End Sub

' Procedure to Generate Bar Graph
Private Sub fn_Generate_Bar_Graph_Click()
   Dim cht As ChartObject
   For Each cht In Worksheets().ChartObjects
      cht.Chart.Type = xlBar
   Next cht
End Sub

' Procedure to Generate Column Graph
Private Sub fn_generate_column_graph_Click()
   Dim cht As ChartObject
   For Each cht In Worksheets().ChartObjects
      cht.Chart.Type = xlColumn
   Next cht
End Sub

 

第4步 - 点击相应的按钮，图表被创建。 在下面的输出中，点击生成饼图按钮。