PPT分页合成

Question

PPT分页合成

Answer 1

首先将需插入的图片排好序号放入任意文件夹，如C:\Users\Administrator\Desktop\新文件夹

打开Microsoft Office PowerPoint 2003 ——工具——宏——vb编辑器（快捷键Alt+F11）

在弹出的窗口中点击——插入——模块——粘贴复制代码——关闭窗口
代码如下：
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:\Users\Administrator\Desktop\新文件夹\图片" & i & ".jpg"
End With
Next
End Sub

划线处为文件地址 i 即文件序号

连续按Ctrl+M键建立与图片数目相同或更多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中