word中如何将大量图片批处理统一的尺寸大小

[怎样批量调整word图片大小]我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。 1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，setpicsize，内容如下： Sub set...+阅读

word中如何将大量图片批处理统一的尺寸大小

选择工具——宏——宏（Alt+F8调出宏编辑窗口），输入宏名——（非数字）——创建；在Sub 宏名（）与End Sub之间编写如下代码：（之后单击运行即可） Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为 99px ActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度 71px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 99 '设置图片高度为 99px ActiveDocument.Shapes(n).Width = 71 '设置图片宽度 71px Next n

如何批量修改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里面插入同样大小的好多图片请问如何用Word批量

Sub 统一图片尺寸（） Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(2) '高度4cmActiveDocument.InlineShapes(n).Width = CentimetersToPoints(2) '宽度3cmNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = CentimetersToPoints(2) '高度4cmActiveDocument.Shapes(n).Width = CentimetersToPoints(2) '宽度3cmNext nEnd Sub上面是word处理图片尺寸的宏代码，代码中的高度和宽度大小可以根据需要进行修改。希望你能用的上。...