word中批量修改图片大小方法.docx

word中批量修改图片大小 最近在整理数据，N多张图,为了方便,先把图片帖到word中去,后来排版时发现把图片大小调成一致也不是容易的事情(图片大多!).于是在网上有哪些信誉好的足球投注网站批量修改图片大小的方法,果然网络什么都有[1],其实用宏命令一下子就OK了.在下用Excel的宏还算了解,word中的宏确实用的比较少,于是把网上的命令稍做修改,一切搞定. word批量修改图片大小——固定长宽篇 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了。 [1] /post/300.html Sub setpicsize() 设置图片大小Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocument.InlineShapes.CountInlineShapes类型图片ActiveDocument.InlineShapes(n).Height=6.42 * 28.35设置图片高度为6.42mm,28.35为1mm的像素ActiveDocument.InlineShapes(n).Width =7.3*28.35设置图片宽度 300pxNext n  HYPERLINK /725.html \o 阅读: Word中批量设置全部图片大小 Word中批量设置全部图片大小  要弄移动标书时，需把大量的图片插入到office WORD中指定表格内，由于图片大小不同，一张一张调整很慢，查询了下，有以下这个方法可以快速批量改变图片大小。 版本要求是word2003等:一,在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