




下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、在excel中可以通过窗体或ActiveX控件达到动态控制图表显示的目的,但当Excel图表作为对象内嵌到PPT后,在PPT播放模式下,所有在Excel对象中的控件都是不可选的,只能在PPT的编辑模式下双击对象后在Application.Excel中进行控制。那么怎样才能在PPT播放模式下可以控制插入的Excel图表动态显示?一个方法是借助PPT中的VBA编程,用PPT中的ActiveX控件(注意在PPT中没有窗体工具中的控件)控制内嵌的Excel对象中的相关单元格区域,达到动态控制。这里指的ActiveX控件就是在“视图工具栏控件工具箱”中的控件。 下面介绍具体的步骤: 1.在PPT的编辑模
2、式下需要插入图表的页面中用“插入对象Microsoft Excel图表”插入一个内嵌的Excel图表,编辑数据及图表(最好是用一个图表工作表显示图表),用一个工作表中的单元格放入数据作为控制图表显示的单元格(这个只是为了方便理解,其实用VBA不要辅助单元格也可以直接改变图表数据引用的)。 2.退出Excel编辑,在PPT选择“视图工具栏控件工具箱”打开“控件工具箱”,在图表所在页插入一个组合框。 插入“组合框”控件后,按Alt+F11就可以在VBE中看到工程中显示出了一个Slide对象(只有加入了ActiveX控件后才能在工程资源管理器中出现Slide对象),如图,点击看相关页面,3.在VBE
3、的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表示正在播放的Slide Set Sh = Wb.workshee
4、ts(sheet1) Set SouceRng = Sh.Range(B1:D1) Set TarCell = Sh.Range(F1) With ComboBox1 先清除列表 If .ListCount 0 Then .ListIndex = -1 For i = .ListCount - 1 To 0 Step -1 .RemoveItem i Next i End If 加入列表项 For i = 1 To SouceRng.Count .AddItem SouceRng.offset(0, i - 1).Range(A1) Next i 选择第一项 .ListIndex = 0 修改
5、TarCell单元格中的值 TarCell = .Value End With End Sub,提示:使用后期绑定,所以可以不在VBE的“工具引用”中对Excel库进行引用。这是考虑对不同Office版本的通用性,如果可以确定版本,还是先引用Excel库,再用先期绑定好,编程中有自动对象列表,运行速度和稳定性也要高。,4.在VBE的Slide对象相应的模块中再加入如下代码:当控件失去焦点时运行释放对象变量 Private Sub ComboBox1_LostFocus() Set TarCell = Nothing Set SouceRng = Nothing Set Sh = Nothing Set Wb = Nothing End Sub 当控件值改变时运行对内嵌工作薄单元格的改变 Private Sub Combo
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 【正版授权】 ISO/IEC 14496-15:2024/AMD1:2025 EN Information technology - Coding of audio-visual objects - Part 15: Carriage of network abstraction layer (NAL) unit structured video in th
- 【正版授权】 IEC 62813:2025 EN-FR Lithium ion capacitors for use in electric and electronic equipment - Test methods for electrical characteristics
- 【正版授权】 ISO/IEC 23094-4:2022/AMD1:2024 EN Information technology - General video coding - Part 4: Conformance and reference software for essential video coding - Amendment 1: Green
- 商务合同续签协议书
- 项目代建协议合同
- 居民采暖供用热合同
- 委托船舶单项其它工程服务合同
- 设计类合同协议
- 墙地砖劳务分包合同
- 美容院顾客服务效果免责协议
- 班会课件:逆风飞翔破茧成蝶-从《哪吒之魔童闹海》看青春期的成长与责任
- 2.1 坚持依宪治国 教案 -2024-2025学年统编版道德与法治八年级下册
- 【语文试卷+答案】2024-2025学年泉州高二上期末质检
- 《修缮定额讲解》课件
- 大学学生宿舍管理员工作培训
- 初三物理常识试卷单选题100道及答案
- 浙江2024公务员考试真题及答案
- 初中新课标培训课件
- 公司银行贷款申请书范文
- 机械设计制造及其自动化专业知识
- 新人教版小学五年级数学下册《第一单元 观察物体(三)》2022课标大单元整体教学设计-全析
评论
0/150
提交评论