如何在PPT中批量调整图片大小？

在制作演示文稿时，我们常常需要插入多张图片以丰富内容。然而，当这些图片尺寸不一致时，它们可能会破坏幻灯片的整体美观。因此，了解如何在PowerPoint（PPT）中批量调整图片大小是非常有用的。以下是一些步骤和技巧，帮助您高效地完成这项任务。

使用“格式刷”功能

1. 选择一张已调整好大小的图片：首先，找到一张您希望其他图片与之匹配大小的图片，并调整到合适的尺寸。
2. 应用格式刷：点击该图片，然后在“开始”选项卡中找到“格式刷”工具。点击“格式刷”，然后点击您希望调整大小的每一张图片。这样，所有被选中的图片都会被调整到与第一张图片相同的大小。

利用“大小和位置”功能

1. 选择多张图片：按住Ctrl键，点击您想要调整大小的所有图片，以选择它们。
2. 调整大小：在“格式”选项卡下，点击“大小和位置”按钮。在弹出的对话框中，您可以输入具体的宽度和高度值，所有选中的图片将被统一调整到这个尺寸。

使用VBA宏进行批量调整

对于高级用户，可以使用VBA（Visual Basic for Applications）编写宏来批量调整图片大小。

1. 打开VBA编辑器：按下Alt + F11打开VBA编辑器。
2. 插入一个新模块：在项目资源管理器中，右键点击您的演示文稿名称，选择“插入” -> “模块”。
3. 编写宏代码：在新模块中输入以下代码：

Sub BatchResizePictures()
    Dim sld As Slide
    Dim shp As Shape
    Dim iWidth As Single
    Dim iHeight As Single
    
    ' 设置目标宽度和高度
    iWidth = 100 ' 以磅为单位
    iHeight = 100 ' 以磅为单位
    
    ' 遍历每一张幻灯片
    For Each sld In ActivePresentation.Slides
        ' 遍历幻灯片中的每个形状
        For Each shp In sld.Shapes
            ' 检查形状是否为图片
            If shp.Type = msoPicture Then
                ' 调整图片大小
                shp.LockAspectRatio = msoFalse
                shp.Width = iWidth
                shp.Height = iHeight
            End If
        Next shp
    Next sld
End Sub

1. 运行宏：关闭VBA编辑器，回到PowerPoint界面，按下Alt + F8，选择刚才创建的宏并运行。

注意事项

• 在调整图片大小之前，请确保图片的“锁定纵横比”选项被关闭，这样您才能自由地调整图片的宽度和高度。
• 如果您希望图片保持原有的宽高比，可以在调整大小时只修改宽度或高度中的一个值，另一个值会自动按比例调整。
• 使用VBA宏时，请确保您的演示文稿没有重要的宏安全限制，否则宏可能无法运行。

通过上述方法，您可以快速且高效地在PPT中批量调整图片大小，从而优化您的演示文稿的视觉效果。