方法1：


这一部分是说，所有的图片在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


端子