manipulating objects

[ashburn]

I need help to manipulate a rectangle I drew from
autoshape: If F6=20 then rect in C8 tilt 20 deg.
If F6=-20 then rect tilt -20 deg. Any help in this area
would be greatly appreciated.
Thanks in advance.

 

[Bernie Deitrick]

Ashburn,

Replace the Rectangle 1 with the name of the object that you want to rotate,
and the Sheet1 with the sheet name:

Sub RotateRectangle()
Worksheets("Sheet1").Shapes("Rectangle 1").Rotation = Range("F6").Value
End Sub

HTH,
Bernie
MS Excel MVP

 

[Guest]

Thanks Bernie, I appreciate your help.