将单张幻灯片另存为 .ppt 的 VBA 代码

Question

我有一个代码可以将我指定的幻灯片保存为 PNG:

Dim userName As String
userName = Slide322.TextBox1.Text

'Save slide

ActivePresentation.Slides(302).Export _
        filename:="C:\Users\Jessica\Dropbox\Uni\DISSERTATION\Questionnaire\Tools\Results\" & userName & ".png", FilterName:="PNG"

但是，我想将幻灯片另存为 .PPT，以便日后打开它并编辑该幻灯片上的文本。我曾尝试使用 .SaveAs 语法，但每次都会收到一条错误消息，它无法识别任何“保存”类型的表达式。

我已经搜索并搜索了这个问题的答案...有人可以帮忙吗？

Answer 1

尝试:

ActivePresentation.Slides(1).Export "c:\temp\slide1.ppt", "PPT"

备选方案:

使用 SaveCopy 保存演示文稿的副本打开保存的副本(有或没有窗口)删除所有幻灯片，直到您要保留的那张删除您要保留的幻灯片之后的所有幻灯片再次保存。关闭演示文稿

像这样:

Sub TestMe()
    SaveSlide 5, "c:\temp\slide5.pptx"
End Sub

Sub SaveSlide(lSlideNum As Long, sFileName As String)

    Dim oTempPres As Presentation
    Dim x As Long

    ActivePresentation.SaveCopyAs sFileName
    ' open the saved copy windowlessly
    Set oTempPres = Presentations.Open(sFileName, , , False)

    For x = 1 To lSlideNum - 1
        oTempPres.Slides(1).Delete
    Next

    ' What was slide number lSlideNum is now slide 1
    For x = oTempPres.Slides.Count To 2 Step -1
        oTempPres.Slides(x).Delete
    Next

    oTempPres.Save
    oTempPres.Close

End Sub

显然，您需要添加一些安全绳索......不要尝试导出 12 张幻灯片演示文稿中的第 15 张幻灯片等。