PPT裏面實現動態圖表

今天又被學生提問，可不能夠在PPT中作相似Excel中的動態圖表？Excel裏實現動態圖表的方法一般是將圖表關聯到一個固定的數據區域，而後經過其餘單元格的值或者控件來改變該固定區域的數據，以達到動態改變圖表顯示的目的。 

然而在PPT中是沒法直接變更圖表數據源表格中的數值的，因此PPT要實現相似Excel的動態圖表須要使用VBA代碼來達成。如下代碼只是一個很簡單的演示示例，其效果就是：當演示當前PPT頁面時，點擊組合框，會將餅圖的源數據進行修改以達到實現動態效果。

 1 Dim wk As Object, ws As Object
 2 
 3 Private Sub ComboBox1_Click()
 4     Set wk = Me.Shapes(1).Chart.ChartData.Workbook
 5     Set ws = wk.worksheets("sheet1")
 6     If ComboBox1.Value = "銷售額" Then
 7         For i = 2 To 5
 8             ws.Range("F" & i) = ws.Range("B" & i)
 9         Next
10     Else
11         For i = 2 To 5
12             ws.Range("F" & i) = ws.Range("C" & i)
13         Next
14     End If
15 
16 End Sub
17 
18 Private Sub ComboBox1_DropButtonClick()
19     With ComboBox1
20         .Clear
21         .AddItem "銷售額"
22         .AddItem "比例"
23     End With
24 End Sub