word批量设置图片大小和对齐，使用宏定义

原创

已于 2024-01-30 10:35:29 修改 · 1.6w 阅读

81 ·

CC 4.0 BY-SA版权

文章标签：

#VB #word

于 2022-05-14 20:01:18 首次发布

本文介绍如何使用Word宏批量设置图片的固定宽度、固定高度、固定高度和宽度，以及调整图片的对齐方式。通过插入Visual Basic模块，编写相应的VBA代码，结合ShapeRange和InlineShape对象，可以实现对嵌入式图形的文字环绕类型的设置，并提供了转换图形类型的代码示例。操作前需确保图片的文字环绕模式为"嵌入式图形"。

word使用宏定义来批量设置图片大小

打开word中开发工具，文件→选项→word选项
在这里插入图片描述
新建Visual Basic文件

点击插入→模块

复制下列任意代码，粘贴到右侧。（注意可以灵活设置Myheigth或者Mywidth）
点击小三角，运行即可。

如何获取理想的Myheigth或Mywidth，选中一张图片，调节成适合的高度或者宽度，把数值记下来，赋值给Myheigth或Mywidth即可。
在这里插入图片描述

下列代码任选其一，粘贴即可
前提条件：图片文字环绕模式都必须为“嵌入式图形”

固定宽度

' 锁定图片的纵横比，固定宽度，高度任意
Sub 批量设置图片大小()

Mywidth = 12     '厘米
On Error Resume Next '忽略错误

For Each iShape In ActiveDocument.InlineShapes
  iShape.LockAspectRatio = msoTrue   '锁定图片的纵横比
  iShape.Width = 28.345 * Mywidth    '设置图片宽度
Next

End Sub

固定高度

' 锁定图片的纵横比，固定高度，宽度任意
Sub 批量设置图片大小()

Myheigth = 18    '厘米
On Error Resume Next '忽略错误

For Each iShape In ActiveDocument.InlineShapes
  iS

最低0.47元/天解锁文章