急求:怎样批量调整word 图片大小?146
发布网友
发布时间：2024-03-15 15:49
共5个回答
热心网友
时间：2024-03-15 16:55
Word如何批量调整图片大小？
热心网友
时间：2024-03-15 16:55
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值,
改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片
sub
macro()
mywidth=10'10为图片宽度（厘米）
myheigth=10'10为图片高度（厘米）
for
each
ishape
in
activedocument.inlineshapes
ishape.height
=
28.345
*
myheigth
ishape.width
=
28.345
*
mywidth
next
ishapeend
sub
由于是批量的处理同样的事情，因此要用到宏。
是这样的，如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式，钻切换大小会很容易，方法
要使用宏命令。
宏主要用来处理有规律的重复的工作，相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键（如l，相当于ctrl
l快捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl
l执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。
对你来说：使用的循环是：查找，图形→然后调整大小，然后鼠标移到图形右侧。然后再执行循环。这个命令是：ctrl
f，点开高级，查找里面，选择特殊格式里面的“图形”，单击查找下一个。关掉查找界面，回到word编辑界面。直接去单击
格式菜单里面的
图片，设置大小为你认可的比例。确定。然后将光标用键盘移出
图片（右移以下）。
执行宏即可。
热心网友
时间：2024-03-15 16:56
Sub Macro()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = iShape.Height * 0.25
iShape.Width = iShape.Width * 0.25
Next iShape
End Sub
按F5运行一次就可以了。
热心网友
时间：2024-03-15 16:56
热心网友
时间：2024-03-15 16:57
