word2003批量修改图片大小 word一键修改图片大小

发布日期：2020-08-27

word文档如何批量修改图片大小？

一，在word中按alt+f11组合键，进入VBA模式二，在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块三，把下面代码复制，粘贴进去.四，更改数值， 改一下宽度和高度数值（10），点运行（类似播放按钮.）或f5，即可设置文档中全部图片Sub Macro()Mywidth=10"10为图片宽度（厘米）Myheigth=10"10为图片高度（厘米）For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub由于是批量的处理同样的事情，因此要用到宏。

是这样的，如果你的图片显示的是嵌入式的。

也就是不能旋转的那种格式，钻切换大小会很容易，方法要使用宏命令。

宏主要用来处理有规律的重复的工作，相当于批处理。

想好了就能编辑出来。

工具→宏→录制新宏→然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。

开始录制宏。

把你能够重复的操作执行一下，以计算机能识别的重复为准。

然后→工具→宏→停止录制。

这样宏就录制出来了。

你ctrl L执行就行了。

连续按，则连续执行。

如果不完全正确，还要修改或重新录制宏。

对你来说：使用的循环是：查找，图形→然后调整大小，然后鼠标移到图形右侧。

然后再执行循环。

这个命令是：ctrl F，点开高级，查找里面，选择特殊格式里面的“图形”，单击查找下一个。

关掉查找界面，回到word编辑界面。

直接去单击 格式菜单里面的 图片，设置大小为你认可的比例。

确定。

然后将光标用键盘移出 图片（右移以下）。

执行宏即可。

如何批量修改word图片大小

打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮，输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() " " AdvertisePublishAs 宏 " 将广告发布导出为 PDF 和 XPS "Sub setpicsize（) "设置图片大小 Dim n "图片个数 On Error Resume Next "忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count "InlineShapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse "不锁定图片的纵横比 ActiveDocument.InlineShapes(n).Height = 320 "设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 "设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count "Shapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse "不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 "设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 "设置图片宽度 425px Next n End Sub word 批量修改图片大小——固定长宽篇 这部分要说的是把word 中的所有图片修改成固定的并且相同的长和宽！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize（) "设置图片大小 Dim n "图片个数 On Error Resume Next "忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count "InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Height = 400 "设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 "设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count "Shapes 类型图片 ActiveDocument.Shapes(n).Height = 400 "设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 "设置图片宽度 300px Next n End Sub 3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！ 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize（) "设置图片大小 Dim n "图片个数 Dim picwidth Dim picheight On Error Resume Next "忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count "InlineShapes 类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 0.8 "设置高度为1.1 倍 ActiveDocument.InlineShapes(n).Width = picwidth * 0.8 "设置宽度为1.1 倍 Next n For n = 1 To ActiveDocument.Shapes.Count "Shapes 类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight *0.8 "设置高度为1.1 倍 ActiveDocument.Shapes(n).Width = picwidth * 0.8 "设置宽度为1.1 倍 Next n End Sub

如何在word中批量修改图片固定大小 分享

1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，setpicsize，内容如下： Sub setpicsize（) "设置图片大小 " 宏在 2008-3-31 由 hero_thm 录制 " Dim j "计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count "文件中图片总个数，图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 362 "设置高度 ActiveDocument.InlineShapes(j).Width = 481.87 "设置宽度 Next j End Sub 3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cmSub setpicsize（)"设置图片大小" 宏在 2008-3-31 由 hero_thm 录制"Dim j "计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count "文件中图片总个数，图片类型为inlineshapesIf ActiveDocument.InlineShapes(j).Width > 480 ThenActiveDocument.InlineShapes(j).Width = 400 "设置宽度End IfNext jEnd Sub...