所有分类
  • 所有分类
  • PPT模板
  • PPT图表
  • PPT图片
  • PPT教程

将PPT拆分为多个PPT文件,一段代码三个步骤就能实现

这是一段运行于PowerPoint中【宏】的代码,可将多页PPT快速分拆为多个单文件PPT。比如,一个PPT文件有20页幻灯片,把这20页幻灯片快速分拆为20个PPT文件。代码下:

Sub ExportSlide() 
Dim CurSlide As Slide
Dim i As Integer
Dim FileFullPath As String
FileFullPath = "D:\PPT\导出单个文件\" '导出后存放的目标文件夹
On Error Resume Next
MkDir (FileFullPath) '创建目标文件夹
For Each CurSlide In ActivePresentation.Slides
CurSlide.Export FileFullPath & "幻灯片" & i + 1 & ".pptx", "pptx" '导出的单个文件名:幻灯片1.pptx、幻灯片2.pptx …
i = i + 1
Next
End Sub

使用PPT中的【宏】运行这段代码,步骤如下:

1.打开要分拆的PPT文件,点击【视图】—【宏】,输入【宏名】ExportSlide,点击【创建】

2.点击【创建】之后,会弹出VBA代码编辑窗口,粘贴上代码

3.点击菜单【运行】—【运行子过程/用户窗体】,即可运行导出,在D:\PPT\导出单个文件\目录中生成文件名为幻灯片1.pptx、幻灯片2.pptx等20个PPT文件。

注意:代码中目标文件夹路径“D:\PPT\导出单个文件\”,D盘PPT文件夹需事先建立或存在,“导出单个文件”文件夹不用手动创建,代码程序会自动创建。

0
分享海报

评论0

请先

本站资源下载采用积分制,有注册、签到免费送积分等几种途径获取!查看详情
显示验证码

社交账号快速登录

微信扫一扫关注
如已关注,请回复“登录”二字获取验证码