如果你想将 PowerPoint 幻灯片拆分成单页,则可以通过以下方法使用宏代码实现:
- 打开 PowerPoint 软件,按下 “Alt+F11” 快捷键进入 VBA 编辑器界面。
- 点击 “插入” 栏目中的 “模块”,在代码编辑窗口中粘贴以下代码:
'PowerPoint VBA拆分幻灯片成单页 Sub SplitSlidesToSingle() On Error Resume Next Dim pr As Presentation: Set pr = ActivePresentation Dim i As Long Dim o As Slide '循环遍历幻灯片中的每一页 For i = 1 To pr.Slides.Count Step 1 Set o = pr.Slides(i) '复制当前幻灯片 o.Copy '新建一个幻灯片文件,用于保存单独的幻灯片 With Presentations.Add '将已复制的幻灯片粘贴到新建幻灯片文件中 .Slides.Paste '文件另存为,保存每一页为独立的文件 .SaveAs pr.Path & "\" & "slide" & i & ".pptx" .Close End With Next '释放对象和变量 Set pr = Nothing Set o = Nothing End Sub- 点击 “运行” 栏目中的 “运行子”,或者按下 “F5” 快捷键,执行宏代码。
- 执行完毕后,每一页幻灯片都将被保存成单独的文件,并且存储在相同的文件夹路径下。
注意:在执行宏代码之前,需要保证幻灯片中已创建好所有需要拆分成单页的幻灯片。同时,也需要注意在运行宏代码时权限问题,如需要访问文件夹等操作需要确认授权。



