批量如何做PowerPoint幻灯片

1.如何将多张图片制作成一个PPT?每个幻灯片放一个图片

这个可以用VBS来做。如下步骤可自动将某个文件夹下面的JPG图片按照每个图片一张幻灯片的形式生成一个PPT文件。

1、创建并保存一个VBS文件（比如“批量导入图片.vbs”）包含如下代码：

Option Explicit

Const strRootPath = "D:\Downloads\Pictures\"

Dim oApplication, oPresentation, oShape, fso, oFolder, oFile, oLayout, oSlide

Set oApplication = CreateObject("PowerPoint.Application")

oApplication.Visible = True

Set oPresentation = oApplication.Presentations.Add()

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFolder = fso.GetFolder(strRootPath)

For Each oFile In oFolder.Files

If LCase(fso.GetExtensionName(oFile.Path)) = "jpg" Then

Set oSlide = oPresentation.Slides.AddSlide(oPresentation.Slides.Count + 1, oPresentation.SlideMaster.CustomLayouts(1))

Set oShape = oSlide.Shapes.AddPicture(oFile.Path, 0, -1, 0, 0)

If oShape.Width < oPresentation.PageSetup.SlideWidth Then oShape.Left = (oPresentation.PageSetup.SlideWidth - oShape.Width) / 2

If oShape.Height < oPresentation.PageSetup.SlideHeight Then oShape.Top = (oPresentation.PageSetup.SlideHeight - oShape.Height) / 2

End If

Next

Set fso = Nothing

Set oFolder = Nothing

Set oSlide = Nothing

Set oLayout = Nothing

Set oShape = Nothing

Set oPresentation = Nothing

2、修改其中的图片文件夹路径为你存放图片的目录；

3、在资源管理器中双击这个vbs文件，PowerPoint将自动打开并把所有图片导入成一幅图片一张幻灯片。

2.PPT怎么快速插入100张图片快速插入100张图方法分享

一张幻灯片的页面插入一张图，几百张幻灯片需要插入几百张图，如果按照一张一张慢慢添加，那真的是很大的工作量呢！不过别担心，小编今天就给分享一下如何一秒快速在PPT里插入100张图片的方法，小伙伴们快来学习吧！ PowerPoint 按照常用的方法点击“插入→图片→来自文件”菜单命令，然后一个一个选择需要的图片，或者点击“格式→背景”命令，将图片作为PowerPoint的背景导入。

不过这样做真的也太浪费时间了。在这种情况下，可以借助PowerPoint强大的宏功能，将多步操作合并为一步，批量插入图片。

操作步骤： 第一步：首先准备好图片，假设在C盘下面的Pictures文件夹内有100张jpg格式的图片，如“C:Pictures1。 jpg”、“C:Pictures2。

jpg”、“C:Pictures3。jpg”等，文件名是有序的数字。