vba - PowerPoint VBA : which command (or a set of commands) would create ppt frames out of my . jpg 图片？

Question

我在 C:\my_folder 中有一些 .jpg 文件

以下是它们的名称: pic_1.jpg 、 pic_2.jpg 、 pic_3.jpg 、 pic_4.jpg 、 pic_5.jpg 。

我应该使用 Power Point VBA 中的哪个命令或一组命令才能在 PowerPoint 中自动创建多个框架，以便每个框架包含一张图片？

Answer 1

此 VBScript 创建一个新的 PowerPoint 演示文稿，并向其中添加两张幻灯片，每张幻灯片都有一张图片。您需要调整图片的位置和大小以适合您的口味。此外，如果您想自动抓取目录中存在的任何图片以嵌入到演示文稿中，您还需要利用 Scripting.FileScriptingObject 来枚举图像。如果您愿意，您的脚本还可以在幻灯片生成后通过调用 pptPresentation.SaveAs 来保存演示文稿。

MSDN 文档位于 http://msdn.microsoft.com/en-us/library/ff746873.aspx .

Dim pptDoc
Dim pptPresentation
Dim pptSlide

Set pptDoc = WScript.CreateObject( "PowerPoint.Application" )
pptDoc.Visible = True
Set pptPresentation = pptDoc.Presentations.Add( True )

' Add a new slide with a blank layout to the end of the Slides collection
' 12 = ppLayoutBlank
Set pptSlide = pptPresentation.Slides.Add( pptPresentation.Slides.Count + 1, 12 )

' Add a picture into the slide, saving the picture into the PowerPoint document
' 10, 10 are the Left and Top coordinates respectively
pptSlide.Shapes.AddPicture "c:\FullPath\1.JPG", False, True, 10, 10

' Add another slide with a picture
Set pptSlide = pptPresentation.Slides.Add( pptPresentation.Slides.Count + 1, 12 )
pptSlide.Shapes.AddPicture "c:\FullPath\2.jpg", False, True, 10, 10