网络有Word如何批量添加图片边框的“宏”代码,请问大家,Word批量取消图片边框(即无轮廓)怎么编制“宏”,以下为Word如何批量添加图片边框的“宏”代码:
Sub 批量添加图片边框 ()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdColorAutomatic
.OutsideLineWidth = wdLineWidth150pt
End With
Next
Application.ScreenUpdating = True
End Sub
Word批量取消图片边框(即无轮廓)怎么编制“宏”
- 写回答
- 好问题 提建议
- 追加酬金
- 关注问题
- 分享
- 邀请回答