Rotating a Group

To rotate a group using scripting, please use the following preferred method listed in the steps below.

Create a variable object that is used to store the rotation angle of the group.
Animate the group's rotation angle using that variable's current value as the source of the animation.
Set the current value of the variable using the script instead of changing the rotation angle of the group directly.

Example: Rotating a Group Using a Script

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

' set the current value of the variable object

' which will result in rotating the group

o.CurrentValue = dVal

End Sub