PPT多页截图怎么做？如何批量操作？
作者：佚名|分类：PPT教程|浏览：131|发布时间：2025-02-11 23:32:44
在制作PPT时，有时我们需要对整个演示文稿进行截图，以便于分享、存档或进行其他用途。以下将详细介绍如何使用不同的方法来对PPT进行多页截图，并展示如何批量操作。
PPT多页截图方法
方法一：使用截图工具
1. 打开PPT文件：首先，打开你想要截图的PPT文件。
2. 选择截图工具：在Windows系统中，你可以使用“截图工具”或“Snipping Tool”来进行截图。在Mac系统中，可以使用“预览”应用。
Windows系统：
按下`Win + Shift + S`快捷键，打开截图工具。
选择截图区域，然后点击“保存”或“另存为”来保存截图。
Mac系统：
打开PPT文件。
点击“文件”>“导出”>“导出为”。
选择“PDF”格式，然后点击“导出”。
在弹出的窗口中，选择“预览”应用，然后点击“导出”。
在“预览”应用中，选择“工具”>“截取”进行截图。
3. 保存截图：将截图保存为图片格式，如PNG或JPEG。
方法二：使用快捷键
1. 打开PPT文件：与上述方法相同，首先打开PPT文件。
2. 使用快捷键：按下`Alt + PrtScn`（Windows）或`Command + Shift + 3`（Mac）快捷键，系统会自动截图当前屏幕。
3. 打开截图：截图完成后，你可以在“图片”文件夹中找到截图文件。
4. 编辑截图：使用截图工具或图片编辑软件对截图进行编辑，如裁剪、调整大小等。
5. 保存截图：将编辑后的截图保存为图片格式。
如何批量操作
方法一：使用PowerPoint内置功能
1. 打开PPT文件：打开你想要批量截图的PPT文件。
2. 选择所有幻灯片：点击“设计”选项卡，然后点击“全部应用”或“应用所有幻灯片”。
3. 使用截图工具：按照上述方法一中的步骤，使用截图工具对整个PPT进行截图。
方法二：使用宏
1. 打开PPT文件：打开你想要批量截图的PPT文件。
2. 录制宏：
点击“开发工具”选项卡。
点击“Visual Basic”。
在打开的“VBA编辑器”中，右键点击“Microsoft PowerPoint 对象”，选择“插入”>“模块”。
在新模块中，输入以下宏代码：
```vba
Sub BatchCapture()
Dim slide As Slide
Dim i As Integer
i = 1
For Each slide In ThisPresentation.Slides
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Text = "截图 " & i
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Size = 24
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
slide.Shapes.Range(Array("自动版式 1")).TextFrame.TextRange.Font.Bold = msoTrue
slide.Shapes.Range(Array("自动版式