PDA

View Full Version : [SLEEPER:] Rotating object with 360 degrees



quatra
04-02-2011, 03:14 AM
Can be created an VBA code in power point 2003 for "rotate an object with 360 degrees" (a car for example)

I think that one method would be the images overlay.
Can we read the cursor position on the slide (on a scale..perhaps) to change pictures forward or backward ... and in this way to give the impression that the car turns ?

MWE
04-02-2011, 10:03 AM
Can be created an VBA code in power point 2003 for "rotate an object with 360 degrees" (a car for example)

I think that one method would be the images overlay.
Can we read the cursor position on the slide (on a scale..perhaps) to change pictures forward or backward ... and in this way to give the impression that the car turns ?
that depends on the axis of rotation. Assuming a 2D image then the axis of rotation is "out of the screen" and any rotation is around that axis. However, if you rotate an object 360 degrees, it is in its original orientation. Or do you mean you wish to rotate the object any number of degrees up to 360?

quatra
04-03-2011, 03:28 AM
that depends on the axis of rotation. Assuming a 2D image then the axis of rotation is "out of the screen" and any rotation is around that axis. However, if you rotate an object 360 degrees, it is in its original orientation. Or do you mean you wish to rotate the object any number of degrees up to 360?

I do not know if that depends on the axis of rotation...but I do not think it is necessary
I have the object in 3D (Catia,3DVia) and I can do the photos how many number of degrees I want.

I want a Macro to insert the all pictures in the same slide (in the same position) and to change pictures forward or backward to give the impression that the object turns: pray2:

I do not know how to do this Macro:banghead:...but I'm thinking to put all the pictures in a folder (in a certain order)
After that the Macro takes the pictures and put them in slide (in the same order). when we drag the mouse to the left or to the right the pictures can change between them...:bow:

John Wilson
04-03-2011, 03:46 AM
It would be possible to write a macro to insert (in alpha order) and give each an animation of maybe flash once. It's not possible (well not simple) to make the series of animation continue looping it would stop after one revolution. The only simple way is to make the whole slide loop.

How much vba experience do you have. Do you need hints or someone to write the program?
Here is the basic code

Sub do_this()
Dim sFolder As String
Dim sFileSpec As String
Dim sFileName As String
Dim osld As Slide
Dim opic As Shape
Dim oeff As Effect
Set osld = ActivePresentation.Slides(1)

' Edit this to suit don't miss out the last \:
sFolder = "C:\Users\John\Desktop\Pics\"
sFileSpec = "*.JPG"

sFileName = Dir$(sFolder & sFileSpec)

While sFileName <> ""
'numbers are left,top,width and height edit as needed
Set opic = osld.Shapes.AddPicture(sFolder & sFileName, False, True, 10, 10, 120, 100)
sFileName = Dir()
Wend

End Sub
You will have to do more work to make the movement controllable. Probably by moving the correct image to the front based on the value in a spin button.

firehurtnova
09-07-2023, 06:48 AM
I think for this you need to make a copy for the rotation clip in your photoshop or any editing application then you can insert that clip to your ppt.
Youtube Vanced (https://vancedmanager.org/)