IncrementRotation

[chirayu]

Hi All,


I was trying to rotate an object but only within a specific angle. I am using the Application.OnKeys code along with Activesheet.Shapes(1).IncrementRotation to rotate the object. However I do not know how to tell it to check the rotation angle & if its at min/ max then accordingly do positive/negative numbers for the rotation. I have attached the rotation angle I need. Is there a way to do this?

 

[Marc L]

Hi !

You could also use Rotation property …

​

 

[chirayu]

Hi !

You could also use Rotation property …

​

Thanks but unsure how I would only make it move within a specific angle. basically I'm trying to create a simulation of a stickman walking left and right so I would use arrow keys to make him move by using the onkey argument and at the same time I want him to be able to move like a person so arms going to and fro

 

[Marc L]

The only way to know the angle value is within Rotation property !

The axis of rotation is the middle of the shape as you can check yourself
by just manually amending the rotation value via the right click …
​

 

[Chihiro]

Since rotations are at centre of shape and not at top. You need to define that as well. Min and Max, you should be able to store in cells and then reference it to do your operation.

See link for how to do this.
http://home.comcast.net/~jkaylin/jeff/Computer/RotateShape.htm

 

[chirayu]

@Chihiro your link is good but was confusing. I liked the rotate from top version but couldn't understand it too well. I've drawn up a sample using my own logic but obviously its rotating from center so its kinda useless. Anyway to change to top rotate?

 

[Marc L]

The only way to anchor a rotate around top is like Chihiro's link,
easy as pure mathematical logic …

​

 

[Chihiro]

Since trigonometry function uses Radians instead of degrees. You need to convert it to radians to fine tune your angle operation.

What the link is doing is using Arctangent (Atn) to convert degree of spin/rotation.
t = a*Atn(1)/45

Where "a" signifies degrees.

Since there is no direct method to rotate at top of shape. You use trig function to adjust it.
.Top = original_Top location - .Height * (1- Cos(t))/2
.Left = original_Left location - .Height*Sin(t)/2

Depending on your operation, you may want to store original_Top & original_Left location as indicated on the link.

Only difference between top or bottom rotation is trig operation of either subtracting .Heigh*(1-Cos(t))/2 or .Height*Sin(t)/2 from original Top/Left location.

 

[chirayu]

Looks like if I wanna use the top rotation. I'll have to relearn trigonometry. Oh well. No other choice. Thanks

 

[chirayu]

@Chihiro I modified the code from that link but noticed something. If I run it long enough. It keeps moving up and left. doesn't go back to original position.

 

[Marc L]

As explained in your MrExcel' link, after rotation
just put back source Left and Top coordinates …

​

 

[Chihiro]

Yep. You are storing OrigTop and OrigLeft as variable at start of the code.

If you want to revert after operation to Original position. Use those variable to set it back. The actual code will depend on when you want to set it back to original position.

 

[chirayu]

Couldn't figure it out so I went the easier route. Use what I understand. Attached.

 

[Marc L]

In fact rotate_around_top procedure from link rocks perfect !

​

 

[Marc L]

Looks like if I wanna use the top rotation. I'll have to relearn trigonometry. Oh well. No other choice.

No ! 'Cause the Trigo is already done in the link sample procedure !
Just past code and as written : « Choose your shape number » …

Once you succeed with this sample procedure,
you can create a function from it …

And then, Sky is the limit !

​