Gets and sets the minimum value used in expression based animations. | |
Syntax: | VARIANT =
object.MinExprValue object.MinExprValue = VARIANT |
Description: | In expression based animations, when the
expression reaches this minimum value, the object becomes visible
to the Minimum Possible extent based on MinValue. if MinValue is 0 object becomes completely invisible. Example: Sub TransparencyAnim_MinExprValue() Dim oCimObj As GefObject Dim oCimTransparencyAnim As
GefTransparencyAnim Set oCimObj = CimGetObject Set oCimTransparencyAnim =
oCimObj.TransparencyAnim If Not oCimTransparencyAnim Is
Nothing Then oCimTransparencyAnim.MinValue
= 0 oCimTransparencyAnim.MaxValue
= 100 oCimTransparencyAnim.MinExprValue
= 100 oCimTransparencyAnim.MaxExprValue
= 1000 MsgBox "The
current expression range for the transparency animation " &
_ "is
" & oCimTransparencyAnim.MinExprValue & " to " &
_ oCimTransparencyAnim.MaxExprValue End If End Sub |