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

Ha-Ha-Interesting

已于 2024-01-30 10:35:29 修改

阅读量1.3w

点赞数 17

分类专栏： VBS 文章标签： VB word

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

本文链接：https://blog.csdn.net/BjarneCpp/article/details/124772197

版权

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
  iShape.LockAspectRatio = msoTrue