Gets and sets the maximum scale factor as a percent. | |
Syntax: | VARIANT =
object.MaxScaleFactor object.MaxScaleFactor = VARIANT |
Description: | When the expression is at MaxExprValue, that is
the scale factor that is used. When the expression is at MinExprValue a scale
factor of 100% is used. Example: Sub GefScaleAnimAttrib_MaxScaleFactor() Dim oCimObj As GefObject Dim oCimScaleAnim As
GefScaleAnim Dim oCimScaleAnimAttrib As
GefScaleAnimAttrib Set oCimObj = CimGetObject Set oCimScaleAnim =
oCimObj.ScaleAnim Set oCimScaleAnimAttrib =
oCimScaleAnim.HorizontalAttrib MsgBox "The maximum scale factor for
the horizontal scale animation is " &
oCimScaleAnimAttrib.MaxScaleFactor End Sub |