PowerPoint 宏功能快速批量插入圖片
發(fā)布時(shí)間：2009-11-30 22:48:11 作者：佚名 
我要評(píng)論
我要評(píng)論Powerpoint技巧：快速插入100張圖片.
當(dāng)微軟的Office與微軟VB中的宏功能相遇時(shí)，便可以創(chuàng)造出強(qiáng)大的功能，例如在這篇文章中就介紹了利用這兩個(gè)工具瞬間插入上百?gòu)垐D片。
如果要插入幾十甚至幾百?gòu)垐D片，并且要求每張圖片插入到每張幻燈片頁(yè)面上(即有幾張照片就要有幾張幻燈片)你會(huì)怎么做？
按照常用的方法點(diǎn)擊“插入→圖片→來(lái)自文件”菜單命令，然后一個(gè)一個(gè)選擇需要的圖片，或者點(diǎn)擊“格式→背景”命令，將圖片作為PowerPoint的背景導(dǎo)入，這樣也太浪費(fèi)時(shí)間了。在這種情況下，可以借助PowerPoint強(qiáng)大的宏功能，將多步操作合并為一步，批量插入圖片。
第一步：首先準(zhǔn)備好圖片，假設(shè)在C盤(pán)下面的Pictures文件夾內(nèi)有100張jpg格式的圖片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的數(shù)字
第二步：?jiǎn)?dòng)PowerPoint 2003，按下Alt+F11鍵打開(kāi)Visual Basic編輯器窗口，點(diǎn)擊“插入→模塊”菜單命令，在彈出的代碼編輯窗口中輸入以下代碼：
Sub InsertPic()
Dim i As Integer
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture "C：Pictures" & i & ".jpg"
End With
Next
End Sub
第三步：關(guān)閉Visual Basic編輯器窗口，上面的模塊代碼會(huì)自動(dòng)保存。此時(shí)，連續(xù)按Ctrl+M鍵建立與圖片數(shù)目相等(如：100)的多個(gè)空白幻燈片。按Alt+F8鍵打開(kāi)宏對(duì)話框，選中我們上面建立的InsertPic宏，點(diǎn)擊“運(yùn)行”即可，100張圖片很快就自動(dòng)插入到幻燈片中。
如果要插入幾十甚至幾百?gòu)垐D片，并且要求每張圖片插入到每張幻燈片頁(yè)面上(即有幾張照片就要有幾張幻燈片)你會(huì)怎么做？
按照常用的方法點(diǎn)擊“插入→圖片→來(lái)自文件”菜單命令，然后一個(gè)一個(gè)選擇需要的圖片，或者點(diǎn)擊“格式→背景”命令，將圖片作為PowerPoint的背景導(dǎo)入，這樣也太浪費(fèi)時(shí)間了。在這種情況下，可以借助PowerPoint強(qiáng)大的宏功能，將多步操作合并為一步，批量插入圖片。
第一步：首先準(zhǔn)備好圖片，假設(shè)在C盤(pán)下面的Pictures文件夾內(nèi)有100張jpg格式的圖片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的數(shù)字
第二步：?jiǎn)?dòng)PowerPoint 2003，按下Alt+F11鍵打開(kāi)Visual Basic編輯器窗口，點(diǎn)擊“插入→模塊”菜單命令，在彈出的代碼編輯窗口中輸入以下代碼：
Sub InsertPic()
Dim i As Integer
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture "C：Pictures" & i & ".jpg"
End With
Next
End Sub
第三步：關(guān)閉Visual Basic編輯器窗口，上面的模塊代碼會(huì)自動(dòng)保存。此時(shí)，連續(xù)按Ctrl+M鍵建立與圖片數(shù)目相等(如：100)的多個(gè)空白幻燈片。按Alt+F8鍵打開(kāi)宏對(duì)話框，選中我們上面建立的InsertPic宏，點(diǎn)擊“運(yùn)行”即可，100張圖片很快就自動(dòng)插入到幻燈片中。
相關(guān)文章
ppt幻燈片怎么添加交互式動(dòng)畫(huà)? PPT制作按鈕交互動(dòng)畫(huà)效果全攻略
近期，不少用戶(hù)在PPT制作中希望添加點(diǎn)擊按鈕的動(dòng)畫(huà)效果，以增強(qiáng)演示的互動(dòng)性和趣味性,今天，我們就來(lái)詳細(xì)講解如何在PPT中輕松實(shí)現(xiàn)這一效果，讓你的演示更加生動(dòng)吸引人2026-02-13- 制作ppt通常需要經(jīng)過(guò)下載安裝軟件、梳理文字大綱、收集素材、統(tǒng)一風(fēng)格、編輯單頁(yè)幻燈片等步驟，詳細(xì)制作思路如下2026-02-13
ppt怎么壓縮文件大小? 這五種壓縮ppt方法簡(jiǎn)單又實(shí)用
ppt太大怎么壓縮變?。科綍r(shí)辦公經(jīng)常要做各種PPT文檔，內(nèi)容篇幅長(zhǎng)的話整個(gè)PPT文件就很占內(nèi)存，多個(gè)文件積累電腦內(nèi)存吃不消，下面我們就來(lái)看看詳細(xì)壓縮教程2025-05-08ppt圖片怎樣鏡像翻轉(zhuǎn)? PPT演示文稿將圖片進(jìn)行鏡像翻轉(zhuǎn)的方法
ppt中導(dǎo)入的圖片想要進(jìn)行鏡像翻轉(zhuǎn)，該怎么操作呢？我們可以使用旋轉(zhuǎn)工具實(shí)現(xiàn)，下面我們就來(lái)看看詳細(xì)的教程2024-09-12- 日常工作制作ppt時(shí)，經(jīng)常需要插入多張圖片，很多朋友都是一張一張插入，甚是繁瑣，下面小編教大家在ppt中一次性插入多張圖片2024-09-04
怎么將ppt中所有的文字設(shè)置為宋體? ppt一鍵替換字體的技巧
PPT內(nèi)容制作完成后，發(fā)現(xiàn)字體不合適需要更換，這時(shí)利用“替換字體”功能可高效地進(jìn)行批量更換操作，詳細(xì)請(qǐng)看下文介紹2024-07-31ppt等比例縮放圖片按什么鍵? PPT進(jìn)行中心等比縮放的方法
ppt插入的圖片，想要進(jìn)行縮放，該怎么操作呢？今天我們主要介紹中心等比縮放圖片的技巧，詳細(xì)請(qǐng)看下文介紹2024-07-31PPT幻燈片怎么插入word表格? PPT文稿導(dǎo)入word表格的教程
ppt幻燈片中想要插入word表格，該怎么將word文件導(dǎo)入到ppt文稿呢？下面我們就來(lái)看看詳細(xì)的教程2024-07-24ppt打印預(yù)設(shè)怎么用? ppt使用最近使用過(guò)的打印設(shè)置的開(kāi)啟方法
經(jīng)常打印ppt文件，上一次打印的時(shí)候進(jìn)行了打印設(shè)置，這次想直接使用，該怎么操作呢？下面我們就來(lái)看看詳細(xì)的操作方法2024-07-17ppt怎么更改文本框出現(xiàn)的順序? PPT設(shè)置文本出場(chǎng)順序動(dòng)畫(huà)的技巧
在PPT中，我們可以使用多種方法來(lái)設(shè)置文本框的先后出現(xiàn)順序，下面我們就來(lái)分享最簡(jiǎn)單的方法，詳細(xì)請(qǐng)看下文介紹2024-07-17
