将Excel数据信息传递给Powerpoint应用

2024-06-25 35

大家好，今天我们来讲解《VBA信息检索与处理》教程《将Excel数据信息传输到Powerpoint应用程序》中的第十六题《将Excel信息传输到Powerpoint和文本文件》第一节，这个题目是非常实用的知识。，希望大家都能获取并使用。本教程包括支持程序文件。

大家好，上一主题我们介绍了如何在EXCEL中将数据信息传输到Word，以及如何将Excel信息和Word模板文件合并成一个文件显示给用户。这些应用程序在工作中很常用，但编写代码的时间较长，需要我们更多的知识。我尝试尽可能彻底地将我的代码提供给读者，以便任何人都可以拿起它并使用它。

本主题涉及将信息从Excel传输到Powerpoint和文本文件。还介绍了将文本文件转为EXCEL的方法。

第1部分：将Excel数据信息传输到Powerpoint

MicrosoftOfficePowerPoint是指微软公司的演示软件。用户可以在投影仪或计算机上演示演示文稿，也可以打印演示文稿并将其制作成电影以供更广泛的使用。您不仅可以使用MicrosoftOfficePowerPoint创建演示文稿，还可以举行面对面会议、通过Internet召开远程会议或在线向观众展示演示文稿。MicrosoftOfficePowerPoint创建的内容称为演示文稿，其格式后缀为：ppt、pptx或保存：pdf、图像格式等。2010及以后版本可以录制视频格式。演示文稿的每一页称为幻灯片。

这种类型的应用在实际工作中很常见。接下来的会议的演示和报告都是基于这个应用程序，这需要我们将Excel中存储的一些信息导入到这个应用程序中。如何实现这一目标？我们将在本节中对其进行解释。

我们仍然使用上一主题的数据来实现该场景：

当我们点击运行按钮时，我们需要将上面的数据和图表导入到EXCEL中。

1将信息从Excel数据传输到Powerpoint应用程序的思路分析

为了满足上述场景需求，我们可以提前保存一个ppt模板文件，作为模板文件使用。

然后我们开始使用以下语句添加幻灯片：SlidesAdd(1,ppLayoutTitle)或SlidesAdd(2,ppLayoutTextAndChart)来指定是否添加标题或文本和图表。目前，我们可以根据Excel中的信息将Powerpoint添加到每张幻灯片中。最后，关闭它并清除内存。

这个想法很发达，在编写代码时，我建议在理解的基础上使用它。不要自己编写代码，只需根据需要进行修改即可。

2实现将Excel数据信息传输到Powerpoint的代码

下面是实现上述想法的代码：

子目录()

DimobjPPTAppAsObject

DimobjPPTPresenAsObject

DimobjPPTSlideAsObject

strTempThisWorkbookPath'016Mtemplatepptx'

SetobjPPTAppCreateObject('PowerpointApplication')

'PresentationsAddmethodmsoFalse新演示文稿不可见。默认情况下，msoTrue在可视窗口中创建演示文稿。

SetobjPPTPresenobjPPTAppPresentationsAdd(msoTrue)

objPPTAppVisibleTrue

ApplyTemplate方法：将设计模板应用到指定的演示文稿。

objPPTPresenApplyTemplateFilename:strTemp

'定义两个常量参数

ConstppLayoutTitle1

ConstppLayoutTextAndChart5

工作表（'工作表1'）。选择

将ppLayoutTitle添加到第一张幻灯片

设置PPTSlideobjPPTPresenSlidesAdd(1,ppLayoutTitle)

WithobjPPTSlideShapes

'Placeholders占位符对象，表示指定幻灯片上占位符的所有Shape对象的集合。

Placeholders(1)TextFrameTextRangeTextRange('B1')

Placeholders(2)TextFrameTextRangeText'经过彻底调查，我们的团队收到了以下信息。'

结束方式

添加另一张幻灯片ppLayoutTextAndChart

SetobjPPTSlideobjPPTPresenSlidesAdd(2,ppLayoutTextAndChart)

WithobjPPTSlideShapes

Placeholders(1)TextFrameTextRangeTextRange('B3')

Placeholders(2)TextFrameTextRangeText'前三项：'

范围（'B5'）'，'严格（'B6'）'，'范围（'B7'）

结束方式

Sheets('Sheet1')ChartObjects(1)CopyPicture

objPPTSlideShapesSticker

WithobjPPTSlideShapes(4)

LeftobjPPTSlideShapes(3)Left

TopobjPPTSlideShapes(3)Top

'ShapeScaleWidth(Single,MsoTriState,MsoScaleFrom)方法

'指定satri-statevaluemsoFalse为FALSE

'MsoScaleFrom指定当形状缩放时形状的哪一部分保持在其原始位置。msoScaleFromTopLeft0形状的左上角保持在其原始位置。

ScaleWidth12，msoFalse，msoScaleFromTopLeft

结束方式

objPPTSlideShapes(3)删除

添加第三张幻灯片ppLayoutTextAndChart

SetobjPPTSlideobjPPTPresenSlidesAdd(3,ppLayoutTextAndChart)

WithobjPPTSlideShapes

Placeholders(1)TextFrameTextRangeTextRange('B22')

Placeholders(2)TextFrameTextRangeText'前三项：'

范围（'B24'）'，'范围（'B25'）'，'范围（'B26'）

结束方式

Sheets('Sheet1')ChartObjects(2)CopyPicture

objPPTSlideShapesSticker

WithobjPPTSlideShapes(4)

LeftobjPPTSlideShapes(3)Left

TopobjPPTSlideShapes(3)Top

ScaleWidth12，msoFalse，msoScaleFromTopLeft

结束方式

objPPTSlideShapes(3)删除

'保存文档

objPPTPresenSaveAsFilename:ThisWorkbookPath'016PPT文件pptx'

objPPTPresen关闭

objPPTApp退出

设置objPPTSlideNothing

SetobjPPT不显示任何内容

设置objPPTAppNothing

消息框“好的！”

结束子

一些代码截图：

代码解释：

1)strTempThisWorkbookPath'016Mtemplatepptx'指定的是模板文件，当然也可以是模板文件格式。

2)SetobjPPTAppCreateObject('PowerpointApplication')后期绑定Powerpoint

3）PresentationsAddmethodmsoFalse新演示文稿不可见msoTrue默认值在可视窗口中创建演示文稿。

SetobjPPTPresenobjPPTAppPresentationsAdd(msoTrue)

objPPTAppVisibleTrue

添加新的PPT文件，手稿将可见。

4)'ApplyTemplate方法：将设计模板应用到指定的演示文稿中。

objPPTPresenApplyTemplateFilename:strTemp

使用上面实现设置的模板打开这个demo文件

5)表格('Sheet1')Select

将ppLayoutTitle添加到第一张幻灯片

SetobjPPTSlideobjPPTPresenSlidesAdd(1,ppLayoutTitle)

WithobjPPTSlideShapes

'Placeholders占位符对象，表示指定幻灯片上占位符的所有Shape对象的集合。

Placeholders(1)TextFrameTextRangeTextRange('B1')

Placeholders(2)TextFrameTextRangeText'经过彻底调查，我们的团队收到了以下信息。'

结束方式

添加第一张幻灯片，标题为Range（'B1'），南非为“以下数据是我们团队经过大量研究得到的数据，分析如下：”

6)Sheets('Sheet1')ChartObjects(1)CopyPicture

objPPTSlideShapesSticker

将图表添加到您的演示文稿中

7)WithobjPPTSlideShapes(4)

LeftobjPPTSlideShapes(3)Left

TopobjPPTSlideShapes(3)Top

'ShapeScaleWidth(Single,MsoTriState,MsoScaleFrom)方法

'指定satri-statevaluemsoFalse为FALSE

'MsoScaleFrom指定当形状缩放时形状的哪一部分保持在其原始位置。msoScaleFromTopLeft0形状的左上角保持在其原始位置。

ScaleWidth12，msoFalse，msoScaleFromTopLeft

结束方式

对于此幻灯片上的形状设置。

3将信息从Excel数据传输到Powerpoint应用程序的效果

当我们单击第一个屏幕截图中的启动按钮时，将创建并打开一个新的PPT演示文稿：

从上面的效果可以看出，我们最初的想法已经完成了。

本节知识点参考：

①本例中将Excel信息转为PPT的想法是如何产生的？

②本例中的代码添加了标题和图表。文字之间有什么区别？

本讲座代码参考文件：016worksheetxlsm

积木式编程的思想和内涵：

在我的系列书中，我一直强调编程中“积木”的思想。它也是学习如何使用VBA的主要方法，特别是对于需要采用此解决方案的工作场所。它的主要色调：

1不要自己输入所有代码。您必须将构建块放在适当的位置，然后更改代码。请务必从您的构建块库中复制它，然后修改代码并利用您的时间进行有效思考。

2创建您自己的“构建模块库”。在平时的学习过程中，我把我认为有用的代码放在一起并收集起来，当我需要的时候，我可以随时带回来。您的构建块库中的信息越多，您的编程想法就越广泛。

VBA应用程序定义和教程：

VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我的VBA应用程序定义。在新的办公软件取代OFFICE之前，能在计算上达到最终结果的将是王者。其中，终极技能非VBA莫属！记得20年前刚学VBA的时候，当时的资料还很少。我只能自己看源码自己搞清楚，真的很难。20年过去了。为了让学习VBA的朋友不要重复我以前的经历，我根据我多年在32位和64位OFFICE系统中使用VBA的经验，推出了六本专门的VBA教程。

第一套：VBA代码解答，是各种VBA知识点的讲解，一共147篇教程，涵盖了大部分VBA知识点；本套教程当前版本是修改后的第二版，程序文件已经在32位和64位OFFICE系统上进行了测试。

第二套：VBA数据库解决方案数据库是专业的数据处理工具教程详细介绍了ACCDB和EXCEL的连接方法和示例操作，适合中级人员学习。这套教程目前包含修订后的第一版教程，程序文件已经在32位和64位OFFICE系统上进行了测试。

第三套：VBA数组和字典解法数组和字典是提高VBA代码水平的有效工具。本套教程当前版本是修订版第一版，程序文件已经在32位和64位OFFICE系统上进行了测试。

第四集：VBA代码解答视频是专门为初学者设计的视频讲解，帮助您快速入门，更快掌握这项技能。本套教程是第一套教程（修改版）的视频讲解，听人声时更容易接受。这套教程还包括已在32位和64位OFFICE系统上测试过的附加程序文件。

套件5：解释和使用VBA类这是一个高级教程，解释了类的无效和物理级别。虽然类的使用较少，但是仔细的学习可以鼓励自己VBA理论的提高。理解这套教义主要是为了让读者理解和理解某些类型的佛教哲学。本套教程当前版本是修订版第一版，程序文件已经在32位和64位OFFICE系统上进行了测试。

第六套教程：《VBA信息检索与处理》是一套范围更广、实用性更强的高级教程，针对中高级人员。教程共涵盖二十个主题，包括：跨应用程序信息检索、使用随机信息、发送电子邮件、VBAInternet数据采集、VBA延迟操作、剪贴板应用、扩展共享功能、工作表信息和其他应用程序交互、使用FSO对象、工作表、文件夹信息检索、图形信息检索、工作表信息功能定制等程序文件已通过32位和64位OFFICE系统测试。

上述教程的学习顺序为：1→3→2→6→5或4→3→2→6→5。包含的程序文件是一个庞大的代码库，供读者使用。有需要的可以微信：NZ9668

学习VBA是一个过程，也要经历枯燥的感觉