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步 - 點選相應的按鈕,圖表被建立。 在下面的輸出中,點選生成餅圖按鈕。