我是一個極端新手與vba,所以請原諒我的新手,請溫柔與我,謝謝。VBA - PPT - 批量導入圖像 - 進入現有的演示文稿幻燈片 - 作爲背景內容
我需要一些幫助。
如何將圖像導入到現有演示文稿中。
我所有的幻燈片上都有文字。我只是想將每張幻燈片導入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張幻燈片並手動修復不同的圖像將是一個艱苦的工作一週。
我非常感謝您的建議。
非常感謝您的時間
您好史提夫,不幸的是,一旦您導入圖像 - 幻燈片上沒有其他形狀:( - 它只是每張幻燈片導入1張圖片 – wp44
對不起,但我不明白問題出在哪裏。幻燈片上有文字;現在,幻燈片上沒有其他形狀,並且每張幻燈片只導入一個圖像一個問題?您想要多少個圖像?您希望多個圖像處理多少?如果您想要圖像要填充幻燈片,您需要在插入幻燈片後設置.Height和.Width;上面引用的同一個URL也說明了如何實現這一點。 –