-
这一部分是说，所有的图片在Word中被修改为固定的，相同的长度和宽度！
1、打开word、工具宏宏（或直接按Alt + F8）进入宏界面，如下所示，输入宏名、宏名本身，记住它！
2，宏名称很好，单击创建来输入Visual Basic编辑器，输入以下代码并保存
子setpicsize（）设置图片的大小
暗淡数量的图片
在错误恢复下一个忽略错误
N = 1 activedocument。inlineshapes count'inlineshapes型图片。
activedocument.inlineshapes（N）。高度= 400集400px图像高度
activedocument.inlineshapes（N），宽度= 300设置图片的宽度300px
接下来的N
N = 1 activedocument。形状。count'shapes型图片
activedocument。形状（N）。高度= 400集400px图像高度
activedocument。形状（N），宽度= 300设置图片的宽度300px
接下来的N
端子
3，返回Word，工具宏宏（或直接按下Alt + F8），再次输入宏界面，选择刚刚编辑过的宏，然后单击run按钮（很多图片可能需要一些时间）。
方法二：
1、在Word中，按下Alt + F11键进入VBA开发模式
2。在工程资源管理器上找到你的Word文档，在它的左边、右边键
3、以下代码复制、粘贴成。
4。更改值，改变宽度和高度值（10），点操作（类似于播放按钮）或F5，您可以设置文档中的所有图片。
Sub Macro（）
mywidth = 10米是图片宽度（厘米）
myheigth = 10米是图像高度（厘米）
每个ishape在activedocument.inlineshapes
ishape。高度= 28.345 * myheigth
ishape。宽度= 28.345 * mywidth
下一ishape
端子
文字按大小顺序改变图片的大小。
这部分是说，所有的图片在Word中按比例缩放！
具体操作是一样的，但代码部分稍微修改了一下，代码如下：
子setpicsize（）设置图片的大小
暗淡数量的图片
昏暗的个
昏暗的picheight
在错误恢复下一个忽略错误
N = 1 activedocument。inlineshapes count'inlineshapes型图片。
picheight = activedocument.inlineshapes高度（N）。
个= activedocument.inlineshapes宽度（N）。
activedocument.inlineshapes（N）。高度= picheight×1.1设置高1.1倍
activedocument.inlineshapes（N）。宽度=个×1.1设置宽度的1.1倍
接下来的N
N = 1 activedocument。形状。count'shapes型图片
picheight = activedocument。形状高度（N）。
个= activedocument。形状的宽度（N）。
activedocument。形状（N）。高度= picheight×1.1设置高1.1倍
activedocument。形状（N）。宽度=个×1.1设置宽度的1.1倍
接下来的N
端子