ShapeRange.SoftEdge (Word)

Returns a SoftEdgeFormat object that represents the soft edge formatting for a range of shapes.

Dim sre As ShapeRange: Set sre =  
Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = sre.SoftEdge