Sub Example
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 = True
End Sub
【Word】图片批量加边框
最新推荐文章于 2025-05-17 09:55:34 发布
扫一扫
964
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
