方法
打开一个新建的word,点击插入
进入插入后,选择图片
把图片都插入到文档后,选择开发工具
然后选择开发工具里的JS宏
J来自S宏打开后,在宏名输入栏中输入picture,随后点击创建
紧接着打开宏代码对话框,输入代码Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdC金黑音督支olorAutomatic
.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating = True
End Sub
随后点击保存
然后点击启用宏即可给图片批量加上边框
结果如下图所示
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 951076433@qq.com 举报,一经查实,本站将立刻删除。如若转载,请注明出处:https://www.xiaomafuwu.com/359995.html