gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-02 22:06:29 29 4
gpt4 key购买 nike

我有一个代码可以将我指定的幻灯片保存为 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 语法,但每次都会收到一条错误消息,它无法识别任何“保存”类型的表达式。

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

最佳答案

尝试:

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 张幻灯片等。

关于将单张幻灯片另存为 .ppt 的 VBA 代码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16042498/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com