|
本来我觉得是有很大难度的，但是我怎么能轻易被困难打败呢？越困难越要勇往直前！于是乎我闭关多日，苦心研究，终于把这个动态图表原封不动的搬到了PPT里，让图表也玩了一次穿越。快跟我一起来探索这个神奇的穿越之旅吧！ 我们先来看看演示效果吧！这可是在PPT中操作的效果哦！ 操作如行云流水，毫无违和感，是不是已经等不及了？要想实现在PPT中操作动态图表，只要6个步骤轻松搞定！ 啊？这么简单！下巴都惊掉了吧！对的，只要6个步骤。 步骤一：将EXCEL中的动态图表复制到PPT中。
① 复制图表背后的单元格区域。按住Shift键配合右箭头和下箭头即可准确选中区域。
②粘贴复制区域到PPT。打开PPT新建幻灯片→选择性粘贴→MicroSoft Excel工作表（代码）对象→调整图像大小和位置。 步骤二：插入单选按钮控件。 插入两个单选按钮，并分别修改其Caption属性，AutoSize属性和BackStyle属性。
步骤三：插入矩形形状 ①先插入1个矩形，覆盖到第一个[长沙]选项卡的上方。 ②按住CTRL+SHIFT+左键单击向下拖动即可复制一个矩形覆盖[四川]选项卡。 ③按F4键重复上一步复制操作，即可快速复制矩形覆盖其它选项卡。 ④选择所有矩形，设置无填充，无轮廓，置于顶层。
步骤四：编写VBA代码。 按ALT+F11快捷键进入VBE编辑器，双击左侧的Slide1打开代码窗口，将下面的代码复制进去。（代码如下，讲解省略，详情参见视频教程）
Dim wb As Object, sh As Object ————————————————————————————————— Private Sub OptionButton1_Click() Set wb = Me.Shapes(1).OLEFormat.Object Set sh = wb.worksheets('效果演示') sh.Shapes('柱形图').Visible = True sh.Shapes('折线图').Visible = False Me.OptionButton1.BackColor = sh.Range('d5').Interior.Color End Sub Private Sub OptionButton2_Click() Set wb = Me.Shapes(1).OLEFormat.Object Set sh = wb.worksheets('效果演示') sh.Shapes('柱形图').Visible = False sh.Shapes('折线图').Visible = True Me.OptionButton2.BackColor = sh.Range('d5').Interior.Color End Sub ————————————————————————————————— Sub 切换(城市 As String, 地址 As String) Set wb = Me.Shapes(1).OLEFormat.Object Set sh = wb.worksheets('数据源') sh.Range('K1') = 城市 wb.worksheets('效果演示').Range('b5:b10').Interior.Color = RGB(117, 113, 113) wb.worksheets('效果演示').Range(地址).Interior.Color = RGB(122, 37, 15) End Sub ————————————————————————————————— Sub 长沙() Call 切换('长沙', 'B5') End Sub Sub 四川() Call 切换('四川', 'B6') End Sub Sub 苏州() Call 切换('苏州', 'B7') End Sub Sub 深圳() Call 切换('深圳', 'B8') End Sub Sub 上海() Call 切换('上海', 'B9') End Sub Sub 北京() Call 切换('北京', 'B10') End Sub 步骤五：为每个矩形指定宏。 选择第一个矩形→插入→动作→鼠标单击→运行宏→选择对应的宏名称→鼠标悬停→运行宏→选择对应的宏名称，宏名要与选项卡对应的城市一致。此处只设置一个，其它操作相同。 步骤六：运行调试。 放映PPT时才能操作动态图表，第一次操作动态图表时会出现滞后现象，再次操作就会非常流畅了，至于怎样解决这个滞后问题，还在研究当中，希望大家不吝赐教！ 最后别忘了把PPT保存成后缀名为pptm格式的文件，否则下次打开里面的代码就没有了，动态图表自然也不会动了。 |
|
|
