如何用VBA将PPT所用母版幻灯片导出为PNG（PowerPoint 2016）

方法1：直接导出幻灯片母版为PNG #

无需创建额外幻灯片，直接引用SlideMaster对象调用Export方法即可完成导出：

Sub ExportSlideMasterAsPNG()
    Dim masterSlide As SlideMaster
    Dim exportPath As String
    
    ' 替换为你的目标导出路径
    exportPath = Environ("USERPROFILE") & "\Desktop\SlideMaster.png"
    
    Set masterSlide = ActivePresentation.SlideMaster
    ' 导出为PNG，后两个参数为可选的导出宽高，不填则用母版默认尺寸
    masterSlide.Export exportPath, "PNG", 1920, 1080
    
    MsgBox "母版已导出至：" & exportPath, vbInformation
End Sub

方法2：导出所有被幻灯片使用过的版式为PNG #

如果需要导出演示文稿中实际被用到的版式，先收集重复的版式，再逐个导出：

Sub ExportUsedLayoutsAsPNG()
    Dim usedLayouts As Collection
    Dim currentSlide As Slide
    Dim customLayout As CustomLayout
    Dim exportPath As String
    Dim layoutIndex As Integer
    
    Set usedLayouts = New Collection
    
    ' 收集所有被使用的版式，避免重复导出
    On Error Resume Next ' 忽略重复添加的错误提示
    For Each currentSlide In ActivePresentation.Slides
        usedLayouts.Add currentSlide.CustomLayout, Key:=CStr(currentSlide.CustomLayout.Index)
    Next currentSlide
    On Error GoTo 0
    
    ' 设置导出根文件夹路径
    exportPath = Environ("USERPROFILE") & "\Desktop\UsedLayouts\"
    ' 文件夹不存在则创建
    If Dir(exportPath, vbDirectory) = "" Then
        MkDir exportPath
    End If
    
    ' 逐个导出版式
    layoutIndex = 1
    For Each customLayout In usedLayouts
        customLayout.Export exportPath & "Layout_" & layoutIndex & ".png", "PNG", 1920, 1080
        layoutIndex = layoutIndex + 1
    Next customLayout
    
    MsgBox "已导出" & usedLayouts.Count & "个使用过的版式至：" & exportPath, vbInformation
End Sub

关键说明 #

• 直接调用SlideMaster或CustomLayout的Export方法是最直接的导出方式，无需额外创建空白幻灯片。
• Export方法的宽高参数为可选项，不设置则使用母版/版式的默认尺寸。
• 方法2中利用Collection的Key属性避免重复导出同一版式，因为多个幻灯片可能共用同一版式。

内容的提问来源于stack exchange，提问作者baradhili