A code example for a shape with no outline or one that its borders has been removed has been given below:
Dim rngShape As InlineShape
For Each rngShape In ActiveDocument.InlineShapes
With rngShape.Range.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdPink
.OutsideLineWidth = wdLineWidth300pt
End With
Next rngShape
Read more about shapes and borders here:
https://brainly.com/question/14400252
#SPJ1