Looking for 3D animation Macro

[dave_man]

I am trying to create a Macro to animate rotation of a 3D disc ( I made the disc ****ed in reference to the axis of rotation, so that rotation is visible ).

When trying to record a Macro, I :

1. inserted a Circle shape, squizzed it, and tilted
2. went to shape properties
3. selected 3-D rotation property
4. did multiple clicks on X axis icon
5. stopped recording

To my surprise Macro code was empty inside

I'll appreciate any help on that.

Dave

 

[Steve=True]

Check this site for references for lots of different renderings:

www.excelunusual.com

 

[Ruddles]

Is this any help?

For i = 0 To 360
  ActiveSheet.Shapes("Lightning Bolt 1").Rotation = i
  DoEvents
Next i

or:-

i = 0
Do
  i = (i + 1) Mod 360
  ActiveSheet.Shapes("Lightning Bolt 1").Rotation = i
  DoEvents
Loop

I'm sure you get the idea.