ppt如何批量導入圖片？ _PPT

在做PPT時，如果需要插入很多圖片，如果一個個地插入，效率會非常低。因此，批量導入圖片是個不錯的選擇。接下來，我們從多個角度來一起看看如何快速批量導入圖片。

一、利用“相冊”功能批量導入圖片
1、新建PPT，在菜單欄點擊“插入”，選擇“相冊” ，在下拉菜單中選擇“新建相冊” 。
2、在彈出的“新建相冊”的對話框中選擇圖片所在的文件夾，然后在右下角點擊“插入” 。
3、選擇好圖片后，點擊“創建”即可在PPT中批量導入圖片。
二、利用“圖片工具”批量導入圖片
1、新建PPT后，在菜單欄點擊“主頁”，在“幻燈片”中點擊“布局”，選擇“標題和內容” 。
2、接著，點擊主頁中的“插入” ，在下拉菜單中點擊“圖片”，選擇“照片瀏覽器” 。
3、在彈出的“照片瀏覽器”窗口中，選中所有需要導入的圖片，點擊左下角的“插入”按鈕，即可一次性導入多張圖片。
三、利用“快速部分”批量導入圖片
1、在PPT中新建一頁幻燈片，點擊“插入”，在下拉菜單中選擇“形狀”，選擇一個可以填充圖片的圖形，然后把它拖到幻燈片中。
2、接著，在菜單欄中點擊“格式”，在“形狀樣式”中選擇“快速部分” ，在下拉菜單中選擇“新建快速部分” 。
3、在彈出的“新建快速部分”窗口中點擊“文件”，選擇需要導入的圖片，點擊“打開” 。
4、選擇完圖片后，點擊“保存”，回到PPT中，點擊“插入”，在下拉菜單中選擇“快速部分”，選擇剛才保存的快速部分，即可批量導入圖片。
四、利用VBA批量導入圖片
1、打開Visual Basic編輯器（快捷鍵：Alt + F11），在左側“工程資源管理器”中雙擊PPT所在的文件名，雙擊“Microsoft PowerPoint Objects”，再雙擊“本地幻燈片”（或者“本地幻燈片和媒體網站”）。
【ppt如何批量導入圖片？】
2、在“本地幻燈片”窗口中，雙擊“這臺PPT的模塊”并粘貼以下代碼：
Sub Import_Pictures()
Dim sFolderPath As String
Dim sFileName As String
Dim oSlide As Slide
Dim oPicture As Shape
sFolderPath = InputBox(Prompt:="請輸入圖片所在文件夾目錄：", Title:="批量導入圖片")
If sFolderPath = "" Then
Exit Sub
End If
sFileName = Dir(sFolderPath & "\*.jpg")
Set oSlide = ActivePresentation.Slides.Add(1, ppLayoutBlank)
While sFileName <> ""
Set oPicture = oSlide.Shapes.AddPicture(FileName:=sFolderPath & "\" & sFileName, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1)
oPicture.Name = sFileName
sFileName = Dir()
Wend
End Sub
3、在PPT中點擊“開發工具”選項卡，在“宏”中選擇“Visual Basic”，打開“Import_Pictures”宏并運行，即可批量導入在VBA中指定的文件夾中所有jpg圖片。
四種方法已經介紹完畢，各位可以按照自己的需求選擇適合自己的方法來批量導入圖片。

青青草免费线看线看|啊在车上停不下来了|国产少女免费观看电视剧|仑乱88MAV|精品老司机在线观看视频|国产一区二区三区高清免费视频|在线观看免费777av

ppt如何批量導入圖片？

猜你喜歡