ShapeRange.Line (Excel)

Returns a LineFormat object that contains line formatting properties for the specified shape. (For a line, the LineFormat object represents the line itself; for a shape with a border, the LineFormat object represents the border).

Dim lftLine As LineFormat
Set lftLine = ActiveChart.OLEObjects.ShapeRange.Line