多张照片幻灯片如何合成ppt

1.PPT中怎么将两个图片组合在一起?

怎样用PPT把两张图片合成一张，方法如下：

1、按钮键盘上的Ctrl键不放，鼠标左键单击选中两张需要合成的图片，在任意一张选中的图片上单击鼠标右键，在弹出的菜单中单击选择“组合”→“组合”，此时两张图片已经成一个单独的对象。

2、单击选中刚才组合的对象，单击鼠标右键，在弹出的菜单中选择“另存为图片”，在“另存为图片”对话窗口中，点击“保存类型”后面的下拉箭头选择想要保存的图片格式（如：png、jpg、gif等），然后单击“保存”按钮即可。

2.如何将多张图片制作成一个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将自动打开并把所有图片导入成一幅图片一张幻灯片。