3d model roation macro

[piper7971]

Hi! I inserted a 3d model of a dice and I would like to make it rotate with a macro when in edit mode not the slide show. I have search but everything I see is for slideshow. Is it possible to click the 3d dice in edit mode to make it rotate ? If so how? Please help!

[John Wilson]

You can move it with code in edit mode but I'm not sure this is what you mean or need. Why do you want to do this?


Dim oshp As Shape
Set oshp = ActiveWindow.Selection.ShapeRange(1)
' below 1
oshp.Model3D.CameraPositionX = 0.9
oshp.Model3D.CameraPositionY = 0.4
oshp.Model3D.CameraPositionZ = 0.7