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模板小编推荐:初中生英语演讲p......
2018-11-22
-
淘宝开店流程ppt模板
今天为大家介绍一款淘宝开店流程ppt模板,有需要的可以来看看,更多下载请点击ppt家园。这是一款简洁大气的淘宝开店流程ppt模板,适用于商务类ppt模板制作。下载地址:淘宝开店流程ppt模板小编推荐:公司元旦晚会策划......
2019-01-18
-
环境案例分析ppt模板
今天为大家介绍一款环境案例分析ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款简洁时尚的环境案例分析ppt模板,适用于商务类ppt模板制作。下载地址:环境案例分析ppt模板小编推荐:室内软装案例分析......
2019-06-19
-
ppt滴笔颜色怎么设置
ppt幻灯片放映的时候一般会用到画笔,默认颜色是红色,如何修改画笔默认颜色呢?我们来学习一下。打开ppt幻灯片,新建一个空白幻灯片。点击右下角的幻灯片按钮,然后右键-指针选项-笔。画一下看画笔默认颜色确实是红色......
2017-07-14
-
wps ppt怎么设置页面
wpsppt怎么设置页面?操作方法其实很简单,,只需要几步就可以搞定,今天小编给大家带来了设置的教程,有需要的朋友一起来看一下吧。1.首先打开ppt,找到“设计”2.之后找到“页面设置”打开3.你会看到有两个设置纸张......
2018-01-02
-
五四运动宣讲ppt模板
今天为大家介绍一款五四运动宣讲ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款清新时尚的五四运动宣讲ppt模板,适用于节日类ppt模板制作。下载地址:五四运动宣讲ppt模板小编推荐:五四运动主题团课......
2019-04-22
-
PPT如何单击鼠标不换页
问:我在幻灯片中设置了一些通过单击触发的动画,但是在播放时往往因为自己不小心单击到指定对象以外的空白区而直接跳到下一张幻灯片。这个现象在演讲时会很让人抓狂,有没有办法禁止这项单击换页的功能呢?答:在PPT......
2017-07-10
-
简约创意通用彩色设计风格排版ppt模板
PPT模板下载家园为大家提供简约创意通用彩色设计风格排版ppt模板,欢迎点击下载。同时提供好看的PPT模板下载、动态PPT模板制作、Powerpoint幻灯片模板免费下载以及PPT背景图片,包括有风景、卡通、商务行业、教育教学等精品PPT模板下载。......
2019-07-16
-
研学旅游推介ppt模板
今天为大家介绍一款研学旅游推介ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款大气时尚的研学旅游推介ppt模板,适用于教育类ppt模板制作。下载地址:研学旅游推介ppt模板小编推荐:小学安全教育汇报......
2019-06-13
-
岗位调整述职报告范文ppt模板
今天为大家介绍一款岗位调整述职报告范文ppt模板,有需要的可以来看看。更多下载请点击ppt家园。这是一款大气清新的岗位调整述职报告范文ppt模板,适用于述职报告类ppt模板制作。下载地址:岗位调整述职报告范文ppt模......
2019-04-29