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

最新推荐文章于 2023-05-05 14:08:29 发布

王钧斌钧王

最新推荐文章于 2023-05-05 14:08:29 发布

阅读量2.8k

点赞数 5

文章标签： ppt

本文链接：https://blog.csdn.net/kaowayaaaaa/article/details/109241518

版权

本文介绍了如何使用VBA宏将PowerPoint转换为单独的幻灯片文件，并进一步将其保存为1440*1080像素的PNG图片。通过在PPT中创建名为ExportSlide的宏，可以批量导出幻灯片，每个幻灯片以指定的分辨率和文件格式保存。此外，还提供了更改导出分辨率的官方文档链接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近工作遇到的需求，把一个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