我们在制作word文档的时候,为了美化文档版面,有时候会为图片添加上边框。添加边框的方法很简单,但是批量添加word文档中的多张图片的边框,你会吗?
![8078eca25798efb41e58a0123eb7be2f.png](https://i-blog.csdnimg.cn/blog_migrate/143705a8a2eb6d5c811456febf4262e8.jpeg)
添加图片边框的基础方法
选择文档中需要添加边框的图片,右击选择【设置图片格式】,选择【线条】,添加线条边框即可。
![a01e25347a8756455ca44b0738eca9de.png](https://i-blog.csdnimg.cn/blog_migrate/d6889250b5111cc982c9471dfb042c22.jpeg)
利用宏批量为图片添加边框
点击【视图】-【宏】按钮,然后选择【查看宏】
![46900cacf5339590d3d21c58a9aa3342.png](https://i-blog.csdnimg.cn/blog_migrate/297e24abcfcd4293377d23296eedc086.jpeg)
输入宏的名字【img】,点击【创建】按钮。打开【宏代码】对话框,粘贴如下代码:
![a3eac05a82dbc889b5190b14eab100b2.png](https://i-blog.csdnimg.cn/blog_migrate/318380ae12276132281f4dfcdbfe9e1b.jpeg)
Sub img() Dim oInlineShape As InlineShape Application.ScreenUpdating = False For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape.Borders .OutsideLineStyle = wdLineStyleSingle .OutsideColorIndex = wdColorAutomatic .OutsideLineWidth = wdLineWidth050pt End With Next Application.ScreenUpdating = TrueEnd Sub
然后保存宏,并执行宏命令,关闭窗口返回文档界面。
![e73b13c25bfcdaa379307f8530499a5f.png](https://i-blog.csdnimg.cn/blog_migrate/4c63e77d576e0682cee601ebc1f74712.jpeg)
Word文档中的图片必须是嵌入式图片,运行上述代码才能添加边框,否则无效。
又学了一招,如果有用,记得转发和点赞哦!