GefObject.IndexColorAnim (read-only property)

Gets the GefIndexColorAnim for the object.
Syntax: Set GefIndexColorAnim = object.IndexColorAnim
Description: Returns Nothing if this property is not valid for the object.


Sub GefObject_IndexColorAnim()
    Dim oCimObj As GefObject
    Dim oCimIndxClrAnim As GefIndexColorAnim
    Set oCimObj = CimGetObject
    Set oCimIndxClrAnim = oCimObj.IndexColorAnim
    If oCimIndxClrAnim Is Nothing Then
        MsgBox "The object does not support index color " & _
        MsgBox "The object does support index color " & _
    End If
End Sub