使用宏对word中的图片批量调整大小

最新推荐文章于 2024-04-29 20:52:08 发布

beijing0080

最新推荐文章于 2024-04-29 20:52:08 发布

阅读量954

点赞数

分类专栏：心情/生活

本文链接：https://blog.csdn.net/beijing0080/article/details/8212095

版权

心情/生活专栏收录该内容

4 篇文章 0 订阅

订阅专栏

Sub aSetPicSize()
'
' aSetPicSize 宏
'
'
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
'ActiveDocument.InlineShapes(j).Height = 10 '设置高度
ActiveDocument.InlineShapes(j).Width = 77 '设置宽度 42灰度图像9张排布 93四张图像排布
Next j

End Sub

上述的方式直接设置宽即可，因为整个图片是按照比例进行缩放的。