ShapeRange.Line (Word)

Returns a LineFormat object that contains line formatting properties for the specified range of shapes.

For a line, the LineFormat object represents the line itself; for a range of shapes with a border, the LineFormat object represents the border.

Dim sre As ShapeRange: Set sre =  
Dim lftLine As LineFormat
Set lftLine = sre.Line