请问如何使用vba 删除word中图片的边框

在网上搜了好久，都是给图片加边框，我想删除图片的边框

自己编了如下代码

Sub test()
Dim shp As InlineShape
For Each shp In ActiveDocument.InlineShapes
Options.DefaultBorderLineStyle = wdLineStyleDashDot
shp.Borders.Enable = False
Next
End Sub

一番操作下来，给所有图片反而加上了边框

请教各路高人，如何用VBA设置删除图片的边框