Setting an angle

[ohaganli]

Hey everyone

Okay so I have a program that rotates an arrow when a button is pushed. I use this code

  ActiveSheet.Shapes("Arrow none").Select
    Selection.ShapeRange.IncrementRotation 50

This works fine, however i want the image to be back to normal every time the program is opened. I cant just say "When the worksheet is opened rotate it -50" because the "50" will be a random variable.

[vtxvtx]

Hi,

you could create a cell that stores the changes made to the rotation, so when its rotated by 50 add 50 in the cell, if its then rotated -70 add -70 to the cell leaving -20 in the cell,

then when the workbooks open, rotate by - this cell, and reset the cell to 0.

Regards,

Andy

[Andy Pope]

code

Sub ArrowRotate()
    With ActiveSheet.Shapes("Right Arrow 4")
        .Rotation = .Rotation + 50
    End With
End Sub
Sub ArrowReset()
    With ActiveSheet.Shapes("Right Arrow 4")
        .Rotation = 0
    End With
End Sub

Call the reset from the Workbook_Open event, making sure the active sheet contains the arrow