1、选择工具宏宏(Alt+F8 调出宏编辑窗口)，输入宏名（非数字）创建；在 Sub 宏名 ()与 End Sub 之间编写如下代码：（之后单击运行即可）Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 99 设置图片高度为 99pxActiveDocument.InlineShapes(n).Width = 71 设置图片宽度 71pxNext nFor n = 1 To
2、 ActiveDocument.Shapes.Count Shapes 类型图片ActiveDocument.Shapes(n).Height = 99 设置图片高度为 99pxActiveDocument.Shapes(n).Width = 71 设置图片宽度 71pxNext n我们可以尝试使用 VBA 完成 Word 文档中图片统一设置宽高：Sub 统一图片尺寸()仅适用于嵌入式图片Dim oInlineShape As InlineShapeFor Each oInlineShape In ActiveDocument.InlineShapesWith oInlineShape.Loc
3、kAspectRatio = msoFalse 不锁定纵横比.Height = MillimetersToPoints(23) 以毫米为单位设置高度.Width = MillimetersToPoints(31) 以毫米为单位设置宽度End WithNextEnd Sub如果是浮动式图形，可以使用以下方法简单实现：1、单击【绘图】工具栏右则的 （工具栏选项）按钮，依次单击【添加或删除按钮】/【绘图】/【选中多个对象】命令，【选中多个对象】命令将被添加到【绘图】工具栏的最后位置。2、单击【绘图】工具栏中的 （选中多个对象）按钮，弹出【选择多个对象】对话框。3、单击【全选】按钮，【对象】列表框中的所有对象被全部选定。4、单击【确定】按钮，Word 全选文档中的所有图片。5、单击【格式】/【图片】命令，打开【设置图片格式】对话框，单击【大小】选项卡，在【高度】框中输入“23”（毫米），在【宽度】框中输入“31”（毫米）。6、单击【确定】按钮，Word 将所有图片统一设置成 23mm*31mm（高*宽）。
