Excel VBA 宏：批量缩小图片尺寸

以下是一个简单的 Excel VBA 宏，可以将选定的图片缩小到指定的大小：

Sub ShrinkImage()

Dim pic As Shape
Dim width As Integer
Dim height As Integer

width = InputBox('请输入缩小后的宽度（单位为像素）：')
height = InputBox('请输入缩小后的高度（单位为像素）：')

For Each pic In ActiveSheet.Shapes
    If pic.Type = msoPicture Then '只处理图片
        pic.LockAspectRatio = msoFalse '取消锁定纵横比
        pic.Width = width
        pic.Height = height
    End If
Next pic

End Sub

使用方法：

1. 打开 Excel 文件，并选择包含图片的工作表。
2. 按下 Alt + F11 打开 VBA 编辑器。
3. 在 VBA 编辑器中，选择“插入”>“模块”。
4. 将上面的代码复制并粘贴到新创建的模块中。
5. 按下 F5 键或单击“运行”>“运行子过程”来运行该宏。
6. 在弹出的对话框中输入想要缩小的宽度和高度。
7. 点击“确定”按钮，宏将自动缩小所有选定的图片。

请注意：该宏只适用于选定的图片，如果您想要在整个工作表上缩小所有图片，请将 For Each 循环中的 ActiveSheet 替换为 ActiveWorkbook。