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

发布网友 发布时间：2022-04-20 19:12

我来回答

共5个回答

热心网友 时间：2022-07-14 17:40

要用到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.导出过程中会比较卡。
有什么其它问题的话再追问。

热心网友 时间：2022-07-14 17:41

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

热心网友 时间：2022-07-14 17:41

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

热心网友 时间：2022-07-14 17:42

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

热心网友 时间：2022-07-14 17:43

另存为gif格式，试试吧