GefExprListAnimElement.GetFont (method)

Gets the font format to be applied if this element is used.
Syntax: Set GefFontFormat = object.GetFont ( Create )
Optional Create As Boolean -
Description: The format is only applied if the AnimatesFont property is true.


Sub ExprListAnimElement_GetFont()
    Dim oCimExprListAnim As GefExprListAnim
    Dim oCimExprListAnimElmt As GefExprListAnimElement
    Dim oCimFontFmt As GefFontFormat
    Set oCimExprListAnim = CimGetObject.ExprListAnim
    Set oCimExprListAnimElmt = oCimExprListAnim.Add
    oCimExprListAnimElmt.Expression ="1"
    oCimExprListAnimElmt.AnimatesFont = True
    oCimExprListAnimElmt.GetFont True
    oCimFontFmt.Name ="Symbol"
    MsgBox "The font is set to " & oCimFontFmt.Name
    CimGetScreen.Refresh False
End Sub