PPT里面实现动态图表

今天又被学生提问，可不可以在PPT中做类似Excel中的动态图表？Excel里实现动态图表的方法通常是将图表关联到一个固定的数据区域，然后通过其他单元格的值或者控件来改变该固定区域的数据，以达到动态改变图表显示的目的。 

然而在PPT中是无法直接变动图表数据源表格中的数值的，所以PPT要实现类似Excel的动态图表需要使用VBA代码来达成。以下代码只是一个很简单的演示示例，其效果就是：当演示当前PPT页面时，点击组合框，会将饼图的源数据进行修改以达到实现动态效果。

Dim wk As Object, ws As Object

Private Sub ComboBox1_Click()
    Set wk = Me.Shapes(1).Chart.ChartData.Workbook
    Set ws = wk.worksheets("sheet1")
    If ComboBox1.Value = "销售额" Then
        For i = 2 To 5
            ws.Range("F" & i) = ws.Range("B" & i)
        Next
    Else
        For i = 2 To 5
            ws.Range("F" & i) = ws.Range("C" & i)
        Next
    End If

End Sub

Private Sub ComboBox1_DropButtonClick()
    With ComboBox1
        .Clear
        .AddItem "销售额"
        .AddItem "比例"
    End With
End Sub