| Gets the font format to be applied if this element is used. | |
| Syntax: | Set GefFontFormat = object.GetFont ( Create ) |
| Parameters: |
Optional Create As Boolean
-
|
| Description: | The format is only applied if the
AnimatesFont property is true. Example: 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 |