GefObject.FrameFormat (read-only property)

Gets the GefFrameFormat for the object.
Syntax: Set GefFrameFormat = object.FrameFormat
Description: This property is only valid for frame (not frame container) objects. Returns Nothing if this property is not valid for the object.


Sub GefObject_FrameFormat()
    Dim oCimObj As GefObject
    Dim oCimFrameFmt As GefFrameFormat
    Dim oCimfrmObj As GefObject
    Dim oCimFrmContFmt As GefFrameContainerFormat
    Dim oCimFrameObj As GefObject
    Set oCimObj = CimGetObject
    Set oCimFrmContFmt = oCimObj.FrameContainerFormat
    If Not oCimFrmContFmt Is Nothing Then
        Set oCimFrameObj = oCimFrmContFmt.CurrentFrame
        Set oCimFrameFmt = oCimFrameObj.FrameFormat
        If Not oCimFrameFmt Is Nothing Then
            MsgBox "The frame expression for the current " & _
                "frame is " & oCimFrameFmt.FrameExpression
        End If
        MsgBox "The object is not a frame within a frame container"
    End If
End Sub