如何把一个PPT中的每一张幻灯片单独保存

2024-12-05 09:22:18
推荐回答(5个)
回答1:

要用到VBA,以PowerPoint 2007为例:
1、“视图”->“宏”,输入宏名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
2、运行宏
注意:
1.FileFullPath为目标文件夹的完整路径,根据自己需要修改。
2.语句“CurSlide.Export FileFullPath & "幻灯片" & i & ".ppt", "ppt"”中的“"幻灯片" & i & ".ppt"”为文件名“幻灯片i.ppt”(i为一个从1递增的数),也可根据需要自行修改。
3.只能导出为ppt格式,无法导出为07版的pptx格式,因为07也没提供相应的转换器。
4.导出过程中会比较卡。
有什么其它问题的话再追问。

回答2:

打开后,另存PPT文档.分别打开删除另外的9张,
或者,再打开新的PPT,复制第一页到新的PPT里再保存,然后又开启新PPT,复制第二页到新的PPT里再保存,这样反复做就行了

回答3:

将这个PPT文件复制10份,分别打开删除另外的9张。

回答4:

没有简单的办法,只有一页一页的复制

回答5:

另存为gif格式,试试吧