• / 3
  • 下载费用:10 金币  

PPT宏中内嵌Excel的动态图表.doc

关 键 词:
PPT宏中内嵌Excel的动态图表.doc
资源描述:
PPT 宏中内嵌 Excel 的动态图表在 excel 中可以通过窗体或 ActiveX 控件达到动态控制图表显示的目的,但当 Excel 图表作为对象内嵌到 PPT 后,在 PPT 播放模式下,所有在 Excel 对象中的控件都是不可选的,只能在 PPT 的编辑模式下双击对象后在 Application.Excel 中进行控制。那么怎样才能在PPT 播放模式下可以控制插入的 Excel 图表动态显示?一个方法是借助 PPT 中的 VBA 编程,用 PPT 中的 ActiveX 控件( 注意在 PPT 中没有窗体工具中的控件)控制内嵌的 Excel 对象中的相关单元格区域,达到动态控制。这里指的 ActiveX 控件就是在“视图→工具栏→控件工具箱 ”中的控件。下面是具体的步骤:①在 PowerPoint 的编辑模式下需要插入图表的页面中用“插入→对象→Microsoft Excel 图表”插入一个内嵌的 Excel 图表,编辑数据及图表 (最好是用一个图表工作表显示图表),用一个工作表中的单元格放入数据作为控制图表显示的单元格( 这个只是为了方便理解,其实用 VBA 不要辅助单元格也可以直接改变图表数据引用的) 。②退出 Excel 编辑,在 PPT 选择“视图→工具栏→控件工具箱”打开“控件工具箱” ,在图表所在页插入一个组合框。插入“组合框”控件后,按 Alt+F11 就可以在 VBE 中看到工程中显示出了一个 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 为指定单元格区域Set 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 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
展开阅读全文
  微传网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

关于本文
本文标题:PPT宏中内嵌Excel的动态图表.doc
链接地址:https://www.weizhuannet.com/p-7312931.html
微传网是一个办公文档、学习资料下载的在线文档分享平台!

微传网博客

网站资源均来自网络,如有侵权,请联系客服删除!

 网站客服QQ:80879498  会员QQ群:727456886

copyright@ 2018-2028 微传网络工作室版权所有

     经营许可证编号:冀ICP备18006529号-1 ,公安局备案号:13028102000124

收起
展开