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

 

转载于:https://www.cnblogs.com/alexywt/p/4731427.html

  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值