第1个回答 2013-10-27
打开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 "设置图片高度为 320pxActiveDocument.InlineShapes(n).Width = 425 "设置图片宽度 425pxNext nFor n = 1 To ActiveDocument.Shapes.Count "Shapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse "不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 320 "设置图片高度为 320pxActiveDocument.Shapes(n).Width = 425 "设置图片宽度 425pxNext nEnd Subword批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!本回答被提问者采纳