组的旋转

通过写脚本来旋转某个组时，请首选下列方法。

通过写脚本来旋转某个组：

1. 创建一个变量对象，用来存储组的旋转角度。
2. 配置组的旋转角度动画，并使用变量的当前值作为其数据源。
3. 利用脚本设置变量的当前值，而不是直接改变组的旋转角度。

示例：使用脚本旋转组

Dim bUp As Boolean

 

Private Sub CFixPicture_Initialize()

bUp = True

CommandButton1.Caption = "Rotate Up"

End Sub

 

Private Sub CommandButton1_Click()

Dim o As Object

Dim dVal As Double

 

' get the variable object, using FindObject

' to keep group out of VBA

Set o = Me.FindObject("RotationAngle")

 

' get the current value of the variable

dVal = o.CurrentValue

 

If bUp Then

' increment the value

    dVal = dVal + 5

    

    ' if we hit 45 then rotate down next time

    If dVal = 45 Then

        bUp = False

        CommandButton1.Caption = "Rotate Down"

    End If

Else

    ' decrement the value

    dVal = dVal - 5

    

' if we hit 0 then rotate up next time

    If dVal = 0 Then

        bUp = True

        CommandButton1.Caption = "Rotate Up"

    End If

End If

 

' set the current value of the variable object

' which will result in rotating the group

o.CurrentValue = dVal

 

End Sub

相关信息

如何做...