:PPT报告可视化，动态图表也来玩玩｜附教程-PPT教程免费ppt模版下载-道格办公

我们在使用Excel制作图表时，习惯制作动态图表，这样不仅避免了图表堆叠，还提高了交互体验！

在Excel中，动态图表的常用方法有两种：①切片器+透视 ②控件+常用图表，方法①简单快捷，方法②灵活个性。我们建议制作分析模板时，优先使用方法②，以实现更加灵活且面向业务的展示需求，例如Excel控件的动态图表如下图：

20家商店，不需要做20张图表，一个组合框控件+一张图片就能解决问题！这是一个非常实用又酷的处理方法！

那么这样一个实用又炫酷的动态图，如果能用PPT演示一下，那就在会议上展示秀< / span>一键点击，就完美了~

这当然是可能的！下图为演示效果：

会议汇报工作时，演示以上效果，仅一页PPT即可完美呈现20家店铺！想想老板和同事惊愕的眼神，一定会给你一种成就感！

如果使用切片器制作动态透视，则无法在PPT中演示；如果使用控件制作动态图表，可以用PPT演示！

下面解释一下实现步骤：

<跨度><强>1。先用Excel制作动态图表

这是常见做法，此处不再解释。用户的选择结果记录在仪表板工作表的Q2单元格中，它是动态图表的驱动引擎。

<跨度><强>2。将包含动态图表的Excel文件嵌入到PPT中

复制Excel文件中放置图表的单元格区域（注意是图表后面的单元格区域，而不是图表本身），在PPT中的打开新页面中，选择性粘贴>

<跨度><强>3。在PPT中插入组合框

在PPT中，开发工具-控件，插入组合框。如果您的PPT没有开发工具，请先在文件-选项-自定义功能区中调用。

但是这个下拉框，PPT没有提供一个地方让你指定下拉选择以及保存选择结果，怎么办？这就是难点。接下来，我们需要使用VBA代码从Excel中读取选择列表并将其分配给下拉框。

<跨度><强>4。在PPT中编写代码

这需要使用VBA代码来实现后续的事情。在PPT中按Alt+F11，来到VBE窗口，与Excel中相同。选择左侧的slide1或slide2等对象（前面有一个PPT小图标），在右侧代码区输入以下代码：（代码文末有提供，直接复制即可）

绿色箭头所指的位置需要根据步骤1中Excel动态图表控件的配置内容以及数据源和链接单元格配置进行配置。

这段代码的作用是每次打开该文件PPT显示并选中下拉框嵌入的Excel文件PPT 读取工作表的 B2:B21 范围，并将这些选项分配给下拉框。当您进行下拉选择时，代码将执行并将选择结果写入工作表的 Q2 单元格以驱动图表更改。

<跨度><强>5。显示PPT测试动态图

现在，激动人心的时刻即将到来！显示PPT，用鼠标单击下拉框，您可能会看到指定值的闪烁。此时下拉框可能只有1行，然后点击下拉框将其完全展开（这应该是一个小bug）。选择一个选项，右边的图表就可以动态切换了！没错，就是如下图的效果：

<跨度><强>6。保存PPT文件

保存文件时会提示包含宏，选择保存为后缀名为.pptm的带宏的文件。下次打开会有宏提示，选择启用宏即可。

<跨度><强>7。未来数据更新

将Excel嵌入到PPT中后，不需要单独的Excel文件，因此请务必在Excel模型完成后嵌入它。当以后需要更新数据时，应该更新PPT中的嵌入对象。不要直接双击打开，窗口太小，操作不方便。右键点击嵌入的object-sheet object-open，会打开一个大的Excel窗口供你编辑，会比较方便。

摘要

有的同学可能觉得太复杂了，有7个步骤，但其实只要在Excel中制作动态图表，下面的动作就可以熟练操作了少不到1分钟strong>就可以完成了，因为代码我已经写给大家了，直接复制粘贴修改即可使用~

PPT可以完美支持所有Excel图表的呈现，甚至可以直接在PPT中制作动态图表。当然，仍然需要使用VBA代码来实现，但并不困难。如果您有兴趣学习更高级的Excel动态图表、PPT动态图表知识，欢迎加入“数硕”会员，您可以学习以下全部内容！

课程内容丰富，贴近实际工作场景，性价比超高。适合所有专业人士学习，提升数据分析能力（点击下图进入课程介绍，点击文末“优惠券”阅读原文）可用）：

最后附上PPT动态图表的代码，可以直接复制。祝大家玩得开心~

<节><前><节>
DimShAs< /span>私有SetSh=Me.Shapes(1).OLEFormat .> Object.ActiveSheetListRng=>> Sh.Range("B2:B21")'←←双引号内填写[控制数据源区域] WithComboBox1Fori=1ToUBound(ListRng).AddItemListRng(i,1)Nexti:EndWithMe.ComboBox1.Text="请选择" ComboBox1.ListRows=>UBound(ListRng):EndSubPrivateSubComboBox1_Click()<代码>'''''''''< span>''''''''''在双引号下面，填写在Control中【链接单元格】''''''''''''''''''''' 'span>'''''' ''''''''''' ↓ ↓↓↓↓↓''''''''' ' '''''''''' Sh.Range("Q2")>=ComboBox1.ListIndex>+1:EndSubPrivateSubComboBox1_LostFocus()设置 Sh = Nothing：ComboBox1.清除：结束子

文章为用户上传，仅供非商业浏览。发布者：Lomu，转转请注明出处： https://www.daogebangong.com/articles/detail/PPT%20report%20visualization%20also%20come%20to%20play%20with%20dynamic%20chartsTutorial%20attached.html