当前位置: 首页 > 文档资料 > VBA 中文教程 >

编程图表( Programming Charts)

优质
小牛编辑
125浏览
2023-12-01

使用VBA,您可以根据特定条件生成图表。 我们来看一个例子吧。

Step 1 - 输入必须生成图表的数据。

VBA中的图形

Step 2 - 创建3个按钮 - 一个用于生成条形图,另一个用于生成饼图,另一个用于生成柱形图。

VBA中的图形

Step 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

Step 4 - 单击相应按钮后,将创建图表。 在以下输出中,单击“生成饼图”按钮。

VBA中的图形