本经验讲解如何利用VBA批量调整Word中的图片大小，提高工作效率。
打开要批量调整图片大小的Word文档。
单击“视图”选项卡，然后单击“宏”，选择“查看宏”。
输入宏的名称，然后单击“创建”。
将下面的VBA代码粘贴到VBA代码编辑区中的代码块中，并修改VBA代码中的图片尺寸。
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
单击工具栏中的“运行”按钮,自动对Word中的图片进行批量化调整。
最终效果：自动调整后的图片，尺寸统一、简单快捷。
