PPT中动态控制内嵌图表显示
2018-03-07 21:34 责任编辑:砕月
在excel中可以通过窗体或ActiveX控件达到动态控制图表显示的目的,但当Excel图表作为对象内嵌到PPT后,在PPT播放模式下,所有在Excel对象中的控件都是不可选的,只能在PPT的编辑模式下双击对象后在Application.Excel中进行控制。那么怎样才能在PPT播放模式下可以控制插入的Excel图表动态显示?一个方法是借助PPT中的VBA编程,用PPT中的ActiveX控件(注意
在excel中可以通过窗体或ActiveX控件达到动态控制图表显示的目的,但当Excel图表作为对象内嵌到PPT后,在PPT播放模式下,所有在Excel对象中的控件都是不可选的,只能在PPT的编辑模式下双击对象后在Application.Excel中进行控制。那么怎样才能在PPT播放模式下可以控制插入的Excel图表动态显示?一个方法是借助PPT中的VBA编程,用PPT中的ActiveX控件(注意在PPT中没有窗体工具中的控件)控制内嵌的Excel对象中的相关单元格区域,达到动态控制。这里指的ActiveX控件就是在“视图》工具栏》控件工具箱”中的控件。
下面介绍具体的步骤:
1.在PPT的编辑模式下需要插入图表的页面中用“插入》对象》Microsoft Excel图表”插入一个内嵌的Excel图表,编辑数据及图表(最好是用一个图表工作表显示图表),用一个工作表中的单元格放入数据作为控制图表显示的单元格(这个只是为了方便理解,其实用VBA不要辅助单元格也可以直接改变图表数据引用的)。
2.退出Excel编辑,在PPT选择“视图》工具栏》控件工具箱”打开“控件工具箱”,在图表所在页插入一个组合框。 插入“组合框”控件后,按Alt+F11就可以在VBE中看到工程中显示出了一个Slide对象(只有加入了ActiveX控件后才能在工程资源管理器中出现Slide对象),如图
3.在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表示正在播放的Slide
Set Sh = Wb.worksheets("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
'修改TarCell单元格中的值
TarCell = .Value
End With
End Sub
4.在VBE的Slide对象相应的模块中再加入如下代码:‘当控件失去焦点时运行释放对象变量
Private Sub ComboBox1_LostFocus()
Set TarCell = Nothing
Set SouceRng = Nothing
Set Sh = Nothing
Set Wb = Nothing
End Sub
‘当控件值改变时运行对内嵌工作薄单元格的改变
Private Sub ComboBox1_Change()
'改变内嵌工作薄中相应单元格的值
TarCell = ComboBox1.Value
End Sub
该课程实例下载
热门标签更多
相关推荐
-
人生时间管理ppt模板
今天要为大家推荐一款人生时间管理ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款简洁清新的人生时间管理ppt模板,适用于培训类ppt模板的制作。下载地址:人生时间管理ppt模板小编推荐:时间管理主题......
2018-08-31
-
卡通元素扁平化办公通用ppt模板
今天为大家介绍一款卡通元素扁平化办公通用ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款卡通时尚的办公通用ppt模板,适用于商务类ppt模板制作。下载地址:卡通元素扁平化办公通用ppt模板小编推荐:......
2019-06-22
-
银行岗位竞聘演讲稿ppt模板
今天为大家介绍一款银行岗位竞聘演讲稿ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款大气时尚的银行岗位竞聘演讲稿ppt模板,适用于竞聘类ppt模板的制作。下载地址:银行岗位竞聘演讲稿ppt模板小编推......
2018-09-24
-
小学生网络安全知识ppt模板
今天为大家介绍一款小学生网络安全知识ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款时尚清新的小学生网络安全知识ppt模板,适用于科技类ppt模板制作。下载地址:小学生网络安全知识ppt模板小编推荐......
2019-06-01
-
ppt文档大量文字排版技巧举例
有时候我们会碰到一些PPT文档,一页中包含大量的文字,又不能删减内容。如果简单的一行一行堆砌,展示效果并不好,用户接受信息也很困难。这时候我们不妨调整一下排版,整理一下这些文字的脉络,用恰当的方式分组展示。 例如下面这个PPT,文字内容是有关发展历史的大量文字介绍。通过分析我们可以从中看出,年份是一条线索,我们不妨由此入手,将文字的展示方式做一个修改和梳理。 基于表达的目的,我们在页面顶端城市......
2018-03-05
-
财务预算执行分析ppt模板
今天为大家介绍一款财务预算执行分析ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款大气清新的财务预算执行分析ppt模板,适用于商务类ppt模板制作。下载地址:财务预算执行分析ppt模板小编推荐:新零......
2019-04-05
-
财务部门年终汇报ppt模板
今天要为大家介绍一款财务部门年终汇报ppt模板,有需要的可以来看看。更多ppt模板下载尽在ppt家园。这是一款简洁实用的财务部门年终汇报ppt模板,适用于汇报类ppt的制作。下载地址:财务部门年终汇报ppt模板小编推荐......
2018-07-31
-
医疗护士护理ppt模板
今天为大家介绍一款医疗护士护理ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款简洁时尚的医疗护士护理ppt模板,适用于医学类ppt模板制作。下载地址:医疗护士护理ppt模板小编推荐:医疗护理读书汇报......
2019-09-02
-
制作PPT如何寻找高质量图片
有很多PPT爱好者留言给我,问我的PPT中的图片是从哪里下载的?这也是个比较普遍的问题。Fish今天就与大家分享一下我经常下载的几个网站,只有看PPT教程网的朋友们,我才告诉他,别人俺还不告诉他呢,哈哈~~我们该去......
2017-07-14
-
卡通创意插画风背景自然灾害防范教育PPT模板
今天为大家介绍一款卡通创意插画风背景自然灾害防范教育PPT模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款卡通创意的插画风背景自然灾害防范教育PPT模板,适用于教育类ppt模板制作。下载地址:卡通创意......
2019-07-25