3d model roation macro

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!

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?

Code:

---

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

---