2016-03-01 36 views
0

我是一個極端新手與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張幻燈片並手動修復不同的圖像將是一個艱苦的工作一週。

我非常感謝您的建議。

非常感謝您的時間

回答

0

添加照片後,這樣做:

oPic.ZOrder(msoSendToBack) 

那將發送圖片幻燈片上的所有其他形狀的後面。

請注意,根據PPT版本,PPT可能會將您的圖片放入幻燈片中的空白內容或圖片佔位符,而不是正常插入它們。有辦法可以解決這個問題,但如果你使用幻燈片而不是這些佔位符,或者他們在那裏但已經有內容,我們不必擔心。

+0

您好史提夫,不幸的是,一旦您導入圖像 - 幻燈片上沒有其他形狀:( - 它只是每張幻燈片導入1張圖片 – wp44

+0

對不起,但我不明白問題出在哪裏。幻燈片上有文字;現在,幻燈片上沒有其他形狀,並且每張幻燈片只導入一個圖像一個問題?您想要多少個圖像?您希望多個圖像處理多少?如果您想要圖像要填充幻燈片,您需要在插入幻燈片後設置.Height和.Width;上面引用的同一個URL也說明了如何實現這一點。 –