VBA - 编程图表

使用 VBA，您可以根据特定条件生成图表。 让我们通过一个例子来看一下。

步骤 1 − 输入生成图表所依据的数据。

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

步骤 3 − 开发一个宏来生成每种类型的图表。

' 生成饼图的过程
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

' 生成条形图的过程
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

' 生成柱形图的过程
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 − 单击相应按钮后，将创建图表。 在以下输出中，单击"生成饼图"按钮。