GefObject.Line (read-only property)

Gets the GefLineFormat for the object.
Syntax: Set GefLineFormat = object.Line
Description: The line is the border portion of the object. Returns Nothing if this property is not valid for the object.


Sub GefObject_Line()
    Dim oCimobj As GefObject
    Dim oCimLineFmt As GefLineFormat
    Set oCimobj = CimGetObject
    Set oCimLineFmt = oCimobj.Line
    If oCimLineFmt Is Nothing Then
        MsgBox "The objects does not support border lines"
        MsgBox "The objects does support border lines"
    End If
End Sub