GefLinkFormat.LinkObjectName (property)

Gets and sets the name of link source object.
Syntax: VARIANT = object.LinkObjectName
object.LinkObjectName = VARIANT
Description: The LinkObjectName property holds the name of the source object.
If the LinkObjectName is blank then the object is not found on the source screen.


Sub LinkFormat_LinkObjectName()
    Dim oCimObj As GefObject
    Dim oCimLnkObj As GefLinkFormat
    Set oCimObj = CimGetObject
    Set oCimLnkObj = oCimObj.LinkFormat
    MsgBox "The source screen is " & oCimLnkObj.LinkObjectName
End Sub