VBA将多张Powerpoint演示文稿幻灯片另存为JPG

Sub SaveSlidesAsJPG()
    Dim ppt As Presentation
    Dim slide As Slide
    Dim slideNum As Integer
    
    ' 打开PowerPoint演示文稿
    Set ppt = Presentations.Open("C:\Path\to\your\presentation.pptx")
    
    ' 循环遍历每张幻灯片
    For Each slide In ppt.Slides
        slideNum = slide.SlideNumber
        
        ' 将当前幻灯片另存为JPG
        slide.Export "C:\Path\to\save\slide" & slideNum & ".jpg", "JPG"
    Next slide
    
    ' 关闭PowerPoint演示文稿
    ppt.Close
    
    ' 释放对象引用
    Set slide = Nothing
    Set ppt = Nothing
    
    MsgBox "幻灯片已成功保存为JPG图像。"
End Sub