Word宏设置图片大小

2023-06-05 11:06:42 870人浏览独家记忆

摘要

Word宏设置图片大小1. Alt+F8, Create 一个Macro2. 输入Macro名，进入编辑---按比例缩小大量图片Sub alex() '设置图片大小 Dim n '图片个数 On Error Resume

Word宏设置图片大小

1. Alt+F8, Create 一个Macro
2. 输入Macro名，进入编辑

---按比例缩小大量图片
Sub alex() '设置图片大小
Dim n '图片个数
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.5 '设置高度为0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
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.5 '设置高度为0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
End Sub

---图片大小设置成绝对值 1cm=28px
Sub alex() '设置图片大小
Dim n '图片个数
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 = 280 '设置高度为280px
ActiveDocument.InlineShapes(n).Width = 364 '设置宽度为364px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = 280 '设置高度为280px
ActiveDocument.Shapes(n).Width = 364 '设置宽度为364px
Next n
End Sub

3. 保持，再次进入原来的word，alt-f8 run这个宏

点击免费下载>>软考高级考试备考技巧/历年真题/备考精华资料

--结束END--

本文标题: Word宏设置图片大小

本文链接: https://www.lsjlt.com/news/242656.html(转载时请注明来源链接)

有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341