1、PPT 宏中内嵌 Excel 的动态图表在 excel 中可以通过窗体或 ActiveX 控件达到动态控制图表显示的目的，但当 Excel 图表作为对象内嵌到 PPT 后，在 PPT 播放模式下，所有在 Excel 对象中的控件都是不可选的，只能在 PPT 的编辑模式下双击对象后在 Application.Excel 中进行控制。那么怎样才能在PPT 播放模式下可以控制插入的 Excel 图表动态显示？一个方法是借助 PPT 中的 VBA 编程，用 PPT 中的 ActiveX 控件( 注意在 PPT 中没有窗体工具中的控件)控制内嵌的 Excel 对象中的相关单元格区域，达到动态控制。这里指
2、的 ActiveX 控件就是在“视图工具栏控件工具箱 ”中的控件。下面是具体的步骤：在 PowerPoint 的编辑模式下需要插入图表的页面中用“插入对象Microsoft Excel 图表”插入一个内嵌的 Excel 图表，编辑数据及图表 (最好是用一个图表工作表显示图表)，用一个工作表中的单元格放入数据作为控制图表显示的单元格( 这个只是为了方便理解，其实用 VBA 不要辅助单元格也可以直接改变图表数据引用的) 。退出 Excel 编辑，在 PPT 选择“视图工具栏控件工具箱”打开“控件工具箱” ，在图表所在页插入一个组合框。插入“组合框”控件后，按 Alt+F11 就可以在 VBE 中看
3、到工程中显示出了一个 Slide对象(只有加入了 ActiveX 控件后才能在工程资源管理器中出现 Slide 对象) ，如下图：在 VBE 的 Slide 对象相应的模块中加入如下代码Option Explicit声明公共变量Dim Wb As Object, Sh As Object, SouceRng As Object, TarCell As Object当控件获得焦点时运行Private Sub ComboBox1_GotFocus()Dim i As Integer设置 Wb 为内嵌的 Excel 工作薄，Sh 为指定工作表，SouceRng 和 TarCell 为指定单元格区域S
4、et Wb = Me.Shapes(1).OLEFormat.Object Me 表示正在播放的 SlideSet Sh = Wb.worksheets(“sheet1“)Set SouceRng = Sh.Range(“B1:D1“)Set TarCell = Sh.Range(“F1“)With ComboBox1先清除列表If .ListCount 0 Then.ListIndex = -1For i = .ListCount - 1 To 0 Step -1.RemoveItem iNext iEnd If加入列表项For i = 1 To SouceRng.Count.AddItem
5、 SouceRng.offset(0, i - 1).Range(“A1“)Next i选择第一项.ListIndex = 0修改 TarCell 单元格中的值TarCell = .ValueEnd WithEnd Sub在 VBE 的 Slide 对象相应的模块中再加入如下代码当控件失去焦点时运行释放对象变量Private Sub ComboBox1_LostFocus()Set TarCell = NothingSet SouceRng = NothingSet Sh = NothingSet Wb = NothingEnd Sub当控件值改变时运行对内嵌工作薄单元格的改变Private Sub ComboBox1_Change()改变内嵌工作薄中相应单元格的值TarCell = ComboBox1.ValueEnd Sub
