Word批量取消图片边框（即无轮廓）怎么编制“宏”

Question

网络有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

Answer 1

Sub 图片取消边框()
'所有图片取消边框
Application.ScreenUpdating = False
Set oDoc = ActiveDocument
Dim 图片
For Each 图片 In oDoc.InlineShapes
    图片.Line.Visible = msoFalse
Next
'形状取消边框
Set oDoc = ActiveDocument
Dim 形状
For Each 形状 In oDoc.Shapes
    形状.Line.Visible = msoFalse
Next
Application.ScreenUpdating = True
End Sub