我是一个极端的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+幻灯片和手动修复不同的图像将是一个漫长的艰苦的一周的工作。
我非常感谢你的建议。
非常感谢您抽出时间来
发布于 2016-03-02 23:34:40
添加图片后,执行以下操作:
oPic.ZOrder(msoSendToBack)
这将把图片发送到幻灯片上所有其他形状的后面。
请注意,根据PPT版本的不同,PPT可能会将图片放入幻灯片上的空白内容或图片占位符中,而不是正常插入它们。有一些方法可以解决这个问题,但是如果你使用的幻灯片没有这些占位符,或者它们已经有了内容,我们就不需要担心了。
https://stackoverflow.com/questions/35716146
复制相似问题