把PPT每张幻灯片单独保存&保存为图片

最近工作遇到的需求，把一个PPT单独保存为一张一张的ppt并且还要保存为一张一张的图片，图片的格式有要求，1440*1080的png文件。

保存为ppt

在这个ppt里新建宏，宏名称为ExportSlide，要是用别的也可以，底下的代码就要改成一样的程序名

Sub ExportSlide()
    Dim CurSlide As Slide
    Dim i As Integer
    Dim FileFullPath As String
    FileFullPath = "D:\PPTSlide\"  '目标文件夹
    On Error Resume Next
    MkDir (FileFullPath)   '创建目标文件夹
    For Each CurSlide In ActivePresentation.Slides
        CurSlide.Export FileFullPath & "幻灯片" & i & ".ppt", "ppt"
        i = i + 1
    Next
End Sub

把目标文件夹 "D:\PPTSlide\"改成你要保存的地址，不要忘记结尾加反斜杠。
CurSlide.Export FileFullPath & "幻灯片" & i & ".ppt", "ppt"这句可以改每个文件的名称。
运行即可。

保存为图片

参考
https://docs.microsoft.com/en-us/office/troubleshoot/powerpoint/change-export-slide-resolution