温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

Word宏设置图片大小

发布时间:2020-08-10 06:52:55 来源:ITPUB博客 阅读:197 作者:studywell 栏目:大数据
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这个宏

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI