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

2024-06-12 8 0

大家好,今天我们来讲解《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是一个过程,也要经历枯燥的感觉

“群鸟飞高,孤云孤单,百看不厌,唯有敬亭山。”学习的过程也是修心的过程,培养平静的心态。在代码的世界里,你的头脑会平静,你的心情会更好,你的身体自然也会感觉更好。平静的心才是公平的心。心中没有那么多的妄知邪见,没有那么多的妄想。利益他人就是利益自己。我的教程是为那些正在苦苦挣扎的朋友准备的。

“水善万物而不争,小则静,大则汹。学习也是如此,知道自己需要什么,不要把自己逼入困境。”你认为是天堂的一小块地方,等到老了才自欺欺人,我们一定要努力提高自己,用活力抓住现在,才是进步。越是困难,决定成败,越是看淡利害,“路漫漫其修远兮。”我上下看。”

每一次的收获,都是一次成长的记录。最后给一心学习VBA的朋友一个词汇,让大家感受一下枯燥而执着的学习过程:

浮云过,密语无声,

唯有风惊梦中黄莺。

看星星,远离北斗七星,

我们像大雁一样把过去保留在一起。

陌生的人,昏暗的灯光,

长汀不忍睹。

有多少VBA人,

黑夜里我静静寻找梦想,却又期盼黎明。

多么未经证实!

很想把自己多年的实际工作经验成果分享出来,把这些有用的东西分享给真正需要使用VBA的同路人。回顾以往学习和使用VBA的经历,我感触很深。

分享成果,享受正能量

本站文章均由用户上传或转载而来,该文章内容本站无法检测是否存在侵权,如果本文存在侵权,请联系邮箱:2287318951@qq.com告知,本站在7天内对其进行处理。

发布评论