在WORD中批量修改图片大小

今天在word中批量修改图片时发现了word一个强大的功能，不多说废话，直接附上步骤：

1.首先按一定的顺序将图片插入word当中；
2.点击“视图”----“宏”，再选择“查看宏”；
3.在宏名中输入自己定义的名字，这里名字定义为“daxiao”
4.输入以下代码：

Sub daxiao（）'这个宏的名字是daxiao
Dim n  '图片个数
On Error Resume Next   '忽略错误
For n=1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height=5*28.5   '设置图片高为5cm
ActiveDocument.InlineShapes(n).Width=4*28.5    '图片宽为4cm
Next n
End Sub

PS：若想设置统一宽度或统一高度则可用以下代码来实现：

Sub 设为统一宽度()Dim n '图片个数Dim picwidthDim picheightDim newWidthnewWidth = 300 '设置图片的统一宽度On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * newWidth / picwidthActiveDocument.InlineShapes(n).Width = newWidthNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthDebug.Print picheightActiveDocument.InlineShapes(n).Height = picheight * newWidth / picwidthActiveDocument.InlineShapes(n).Width = newWidthNext nEnd SubSub 设为统一高度()Dim n '图片个数Dim picwidthDim picheightDim newHeightnewHeight = 200 '设置统一高度时修改此数值On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = newHeightActiveDocument.InlineShapes(n).Width = picwidth * newHeight / picheightNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthDebug.Print picheightActiveDocument.InlineShapes(n).Height = newHeightActiveDocument.InlineShapes(n).Width = picwidth * newHeight / picheightNext nEnd Sub

以上就是word中批量修改图片大小的方法，在后来的使用中，还查到可以将图片保存为较老版本的word，即doc格式，可以直接批量修改图片大小和格式，但不建议这样做，因为这样容易使得图片格式混乱，不易后面的使用和排版。

在WORD中批量修改图片大小相关推荐

如何在word中批量修改图片大小
在将文件夹中的图像复制到word中时发现,图像右侧显示不全,需要对图像尺寸进行设置 1.直接按[Alt+F8]打开 "宏"对话框,在"宏名"文本框中输入宏名称& ...
word宏命令批量修改图片大小
利用宏命令,解锁纵横比,批量修改成想要的图片大小代码如下: Sub 批量修改图片尺寸() ' ' 批量修改图片尺寸宏 ' ' Dim Shap As InlineShape For Each Sh ...
Word中批量调整图片大小
当一个文档中图片较多,又需要调整图片大小时,这时可以通过"宏"执行代码来批量调整. 打开一个Word文档. "Alt+F8"键打开宏. 设置"宏名&q ...
php中怎样把图片改大,PHP怎么批量修改图片大小?
相信大家和我一样,网站的图片大小不一,有的错略图小的才几KB,大的可能有几MB,为了提高用户体验,我们需要将图片的缩略图统一大小,也就是宽高,我的网站8000多条张图片之前没有很好的方法去处理,有想过 ...
Word中批量修改MathType公式的字体大小
步骤双击论文中的任意一个公式,打开MathType公式编辑器软件: 在菜单栏中选择[大小]-[定义],并打开"定义尺寸"对话框: 在"定义尺寸"对话框中,更改 ...
php图片大小怎么改,如何批量修改图片大小/尺寸
小编给大伙分享一个小巧实用的批量修改图片大小工具,可以批量修改图片大小尺寸,限制缩放后的图片文件大小,以满足在线照片打印的要求,或便于上传图片到网店商铺以方便您的照片展示.很是实用! 操作灰常简单的哟 ...
如何用python批量处理图片大小_python批量修改图片大小的方法
本文实例为大家分享了python批量修改图片大小的具体代码,供大家参考,具体内容如下引用的模块 from PIL import Image Image的使用 def resize_image(img ...
python批量修改图片内容_python批量修改图片大小的方法
本文实例为大家分享了python批量修改图片大小的具体代码,供大家参考,具体内容如下引用的模块 from PIL import Image Image的使用 def resize_image(img ...
python 批量修改图片大小
python 批量修改图片大小一个文件夹下面有好多图片格式是jpg大小是19201080,把它们处理成1280720并按原先图片的名保存在另一路径下这里首先要找到给定路径下所有的图片文件,然后在修 ...

在WORD中批量修改图片大小

在WORD中批量修改图片大小相关推荐

最新文章

热门文章