VBA - PPT - 批量导入图像 - 进入现有的演示幻灯片 - 作为内容的后退

Question

我是vba的极端新手，所以请原谅我的新手，请温柔地对待我，谢谢。

我需要一些帮助。

如何将图像导入现有演示文稿。

我的所有幻灯片上都有文字。我只想将每张幻灯片导入1张图片作为后退。 我觉得很傻 - 因为这似乎是一个非常普通的任务应该在PPT中，但就我所知 - 我似乎无法得到任何工作。

我希望我导入的每个图像都是幻灯片上内容的背面。

我已经看了好几个月，但没有任何效果。

此宏可以很好地导入图像

http://www.pptfaq.com/FAQ00352_Batch_Insert_a_folder_full_of_pictures-_one_per_slide.htm

下面的代码添加了图片和幻灯片

Do While strTemp <> ""
Set oSld =   ActivePresentation.Slides.Add(ActivePresentation.Slides.Count  + 1, ppLayoutBlank)
Set oPic = oSld.Shapes.AddPicture(FileName:=strPath & strTemp, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=0, _
Top:=0, _
Width:=-1, _
Height:=-1)
' width/height of -1 tells PPT to import the image at its "natural" size

任何VBA专家都可以帮助我 - 因为我有近300张幻灯片并手动修复不同的图像将是一个漫长的一周努力工作。

我非常感谢你的建议。

非常感谢你的时间

Answer 1

添加图片后，请执行以下操作：

oPic.ZOrder(msoSendToBack)

那将把图片发送到幻灯片上所有其他形状的背后。

请注意，根据PPT版本，PPT可能会将图片放入幻灯片中的空白内容或图片占位符，而不是正常插入。有很多方法可以解决这个问题，但是如果你使用没有这些占位符的幻灯片，或者他们已经在那里但已经有了内容，我们就不用担心了。