我正在VBA中创建一个Excel宏,它将从行中获取数据并使用该数据填充PowerPoint。我已经在幻灯片中创建了文本框布局,希望可以将其应用于所创建的每张新幻灯片,但是我需要这样做而没有模板。模板的问题在于,我然后需要每个要使用此模板的用户来安装模板。我曾尝试将布局保留在一个隐藏的幻灯片中,然后将其粘贴到演示文稿中,但是当我这样做时,它们的布局就不会保持相同(它们都堆叠在一起)并且它们没有保持其功能作为文本。框。解决这个问题的正确方法是什么?
通过将形状对象保存在Excel中的隐藏工作表中,使用VBA填充它们,然后使用以下代码将其粘贴到幻灯片中,最终解决了这个确切的问题:
Sheets("template").Activate
Sheets("template").Shapes("myShape").Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteDefault).Select
这会将它们保留为形状对象,并且可以在PowerPoint中进行编辑。
请注意,一般的良好做法是避免使用Activate和Select语句。此代码未在最终产品中使用,仅作为参考。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句