Word宏设置图片大小-创新互联

Word

创新互联建站-专业网站定制、快速模板网站建设、高性价比灵石网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式灵石网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖灵石地区。费用合理售后完善，10年实体公司更值得信赖。宏设置图片大小
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这个宏

文章标题：Word宏设置图片大小-创新互联
转载源于：https://www.cdcxhl.com/article8/coejop.html

成都网站建设公司_创新互联，为您提供网站设计公司、用户体验、App开发、企业建站、搜索引擎优化、建站公司

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联