A. Word图片插入技巧：用VBA代码批量调整图片尺寸
本文将详细阐述如何利用VBA代码在Word文档中批量调整图片尺寸，解决图片尺寸不统一导致的布局问题。
首先，模拟一个常见的工作场景，打开Word文档，插入图片文件夹中的图片。由于图片尺寸多样，图片数量随页面不同而变化。此步骤完成后，图片在文档中的显示效果如图所示。
为了解决批量调整图片尺寸的问题，我们可以通过F4键重复设置图片大小，但当图片数量庞大时，这种方式将变得效率低下。因此，VBA代码的介入显得尤为重要。
操作步骤如下：点击“开发工具”选项卡，选择“Visual Basic”，进入VBE编辑器。在模块中粘贴以下VBA代码，执行宏即可实现批量调整图片尺寸的功能：
以下是VBA代码内容：
Sub 指定图片大小() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
该代码段实现了将文档中所有图片尺寸统一为400px高和300px宽。对于需要等比例缩放的场景，可以使用以下代码：
Sub 等比例缩放图片() '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
End Sub
通过调整代码中的倍数值，可以实现等比例放大或缩小图片尺寸，以适应不同布局需求。
通过上述方法，可以高效、便捷地在Word文档中批量调整图片尺寸，从而优化文档的视觉效果和布局，提升工作效率。同时，VBA代码的灵活性也使得用户可以根据实际需求进行调整，满足更多个性化需求。