InlineShape.SoftEdge (Word)

Returns a SoftEdgeFormat object that represents the soft edge formatting for a shape.

Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = ActiveDocument.Range.InlineShapes(1).SoftEdge