在做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”，再双击“本地幻灯片”（或者“本地幻灯片和媒体网站”）。
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图片。
四种方法已经介绍完毕，各位可以按照自己的需求选择适合自己的方法来批量导入图片。
