萬盛學電腦網

 萬盛學電腦網 >> PowerPoint教程 >> PPT高級知識 >> PPT批量插入圖片

PPT批量插入圖片

如果要往PowerPoint中插入幾十甚至幾百 張圖片,並且要求每張圖片插入到每張幻燈片頁面上(即有幾張照片就要有幾張幻燈片)你會怎麼做?按照常用的方法點擊“插入→圖片→來自文件”菜單命令,然 後一個一個選擇需要的圖片,或者點擊“格式→背景”命令,將圖片作為PowerPoint的背景導入,這樣也太浪費時間了!

  在這種情況下,我們可以借助PowerPoint強大的宏功能,將多步操作合並為一步,批量插入圖片。

  第一步:首先准備好圖片,假設在C盤下面的Pictures文件夾內有60張jpg格式的圖片,如"C:Pictures1.jpg"、"C:Pictures2.jpg"、"C:Pictures3.jpg"等,文件名是有序的數字

  第二步:啟動PowerPoint 2003,按下Alt+F11鍵打開Visual Basic編輯器窗口,點擊“插入→模塊”菜單命令,在彈出的代碼編輯窗口中輸入以下代碼:

  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

  第三步:關閉Visual Basic編輯器窗口,上面的模塊代碼會自動保存。此時,連續按Ctrl+M鍵建立與圖片數目相等(如:60)的多個空白幻燈片。按Alt+F8鍵打開宏 對話框,選中我們上面建立的InsertPic宏,點擊“運行”即可,60張圖片很快就自動插入到幻燈片中了。

如果要往PowerPoint中插入幾十甚至幾百張圖片,並且要求每張圖片插入到每張幻燈片頁 面上(即有幾張照片就要有幾張幻燈片)你會怎麼做?按照常用的方法點擊“插入→圖片→來自文件”菜單命令,然後一個一個選擇需要的圖片,或者點擊“格式→ 背景”命令,將圖片作為PowerPoint的背景導入,這樣也太浪費時間了!

  在這種情況下,我們可以借助PowerPoint強大的宏功能,將多步操作合並為一步,批量插入圖片。

  第一步:首先准備好圖片,假設在C盤下面的Pictures文件夾內有60張jpg格式的圖片,如"C:Pictures1.jpg"、"C:Pictures2.jpg"、"C:Pictures3.jpg"等,文件名是有序的數字。

  第二步:啟動PowerPoint 2003,按下Alt+F11鍵打開Visual Basic編輯器窗口,點擊“插入→模塊”菜單命令,在彈出的代碼編輯窗口中輸入以下代碼:

  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燈片中了。

copyright © 萬盛學電腦網 all rights reserved