如果你想将 PowerPoint 幻灯片拆分成单页,则可以通过以下方法使用宏代码实现: 打开 PowerPoint 软件…

如果你想将 PowerPoint 幻灯片拆分成单页,则可以通过以下方法使用宏代码实现:

  1. 打开 PowerPoint 软件,按下 “Alt+F11” 快捷键进入 VBA 编辑器界面。
  2. 点击 “插入” 栏目中的 “模块”,在代码编辑窗口中粘贴以下代码:
  3. '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
    1. 点击 “运行” 栏目中的 “运行子”,或者按下 “F5” 快捷键,执行宏代码。
    2. 执行完毕后,每一页幻灯片都将被保存成单独的文件,并且存储在相同的文件夹路径下。

    注意:在执行宏代码之前,需要保证幻灯片中已创建好所有需要拆分成单页的幻灯片。同时,也需要注意在运行宏代码时权限问题,如需要访问文件夹等操作需要确认授权。

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索