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(1).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(1).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(1).ChartObjects
      cht.Chart.Type = xlColumn
   Next cht
End Sub

第4步 : 单击相应按钮后，将创建图表.在以下输出中，单击生成饼图按钮.