如何批量插入背景圖片

《如何批量插入背景圖片》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、SubInsertPic()DimiAsIntegerFori=1ToActivePresentation.Slides.CountActivePresentation.Slides(i).SelectWithActiveWindow.Selection.SlideRange.FollowMasterBackground=msoFalse.Background.Fill.UserPicture"E:Pictures"&i&".png"EndWithNextEndSub批量插入【ppt】背景圖片??2009-12-2121:24:2

2、4

3、??分類：默認(rèn)分類

4、??標(biāo)簽：

5、舉報(bào)

6、字號大中小?訂閱自己在制作一個(gè)70多頁的ppt，一個(gè)個(gè)改背景太麻煩了，就從網(wǎng)上找又沒有批量插入圖片的方法，找了半天，有個(gè)介紹要不是沒有代碼，要不是就解釋不清怎么使用。歷盡千辛萬苦，終于搞懂了，親測。??????在插入圖像的過程中還有個(gè)一個(gè)問題，就是要求插圖必須固定名稱，如‘1.jpg’之類的，一張張改名更麻煩，于是就用自己學(xué)的java改名，嘿嘿，短短幾分鐘就搞定需要幾個(gè)小時(shí)的工作了，算是學(xué)軟件以來第一次學(xué)以致用吧！特來分享一下。下面是ppt批量插入圖片地方法：在硬盤的任意位置(如F盤根目錄)新

7、建一個(gè)名為“Background”的文件夾，然后將需要插入到PPT課件中的背景圖片復(fù)制到該文件夾，并對所有的背景圖片進(jìn)行重命名，圖片文件名的格式為“1.jpg”、“2.jpg”、“3.jpg”……　　啟動(dòng)PowerPoint2003/2007，然后單擊“工具→宏→VisualBasic編輯器”命令，打開“VisualBasic編輯器”窗口，然后右擊該窗口左邊的“VBAProject”，選擇“插入→模塊”命令，插入一個(gè)代碼模塊【稍后給出】，然后在右邊的代碼窗口中輸入相應(yīng)代碼，關(guān)閉“VisualBasic編輯器”窗口，上邊輸入的模塊代碼就

8、會(huì)自動(dòng)保存，最后單擊菜單“文件→保存”命令，將PPT演示文稿保存到"C：Pictures”目錄下，文件名為“批量插入背景圖片.ppt”?！　⌒√崾荆涸谖覀兲峁┑拇a中，“Background.Fill.UserPicture"C：Pictures"&i&".jpg"表示插入到幻燈片中的背景圖片保存在“C：Pictures”目錄下，背景圖片的格式為jpg，如有不同，請自行更改?！　〗又鴨螕舨藛巍肮ぞ摺远x”命令，打開“自定義”對話框并切換到“命令”選項(xiàng)卡，然后選中“類別”下邊列表框中的“宏”選項(xiàng)，這時(shí)在“命令”下邊的列表框中就會(huì)出現(xiàn)我

9、們剛才新添加的宏了(如圖)。如圖　　在如圖界面中將“命令”下邊列表框中的“CharuPic”宏拖動(dòng)到工具欄中的任意位置，松開鼠標(biāo)后，在工具欄上就會(huì)出現(xiàn)一個(gè)名為“CharuPic”的按鈕，右擊該按鈕，在出現(xiàn)的右鍵菜單中，將按鈕的名稱修改為“批量插入背景圖片”;在“更改按鈕圖像”子菜單中選擇自己喜歡的圖片作為按鈕的背景，最后關(guān)閉“自定義”對話框?！　∫院笾恍枰獑螕艄ぞ邫谏系摹芭坎迦氡尘皥D片”按鈕，稍等片刻，PPT課件中的所有幻燈片就自動(dòng)完成背景圖片的插入工作了。　　小提示：如果單擊工具欄上的“批量插入背景圖片”按鈕不能完成幻燈片背景圖片

10、的插入工作時(shí)，可單擊菜單“工具→宏→安全性”命令，打開“安全性”對話框并切換到“安全級”選項(xiàng)卡，將安全等級設(shè)置為“中”，就可以了。代碼如下：SubInsertPic（）　　DimiAsInteger　　Fori=1ToActivePresentation.Slides.Count　　ActivePresentation.Slides（i）.Select　　WithActiveWindow.Selection.SlideRange　　.FollowMasterBackground=msoFalse　　.Background.Fill.U

11、serPicture"C：Pictures"&i&".jpg"　　EndWith　　Next　　EndSub自己通過實(shí)驗(yàn)，發(fā)現(xiàn)只要ppt和你的圖片文件夾在一起就沒問題，但是要保證文件夾的名字正確！可能自己試驗(yàn)的有偏差吧，不過我都放在桌面上也可以解決問題。java批量修改文件名代碼【僅對此處圖片為例】publicclass批量命名文件{/**/privatestaticFilef;publicstaticbooleanrename(){??File[]childs=f.listFiles();for(inti=0;i

12、ngth;i++){????if(!childs[i].isDirectory()){???System.out.println(childs[i].getName());???childs[i].renameTo(ne