Rob van Gelder has a good site, and well worth a visit.

I haven’t explored the entire site yet because I’ve been playing with the 3D model rotate tool, easily one of the best homegrown 3d effects I’ve seen. There’s much to learn just in this spreadsheet alone.

I had the thought that it would be cool if somebody developed some automated routines for the 3D object. I don’t have the time or the ability to do any elaborate routines, but I did start an elementary routine for using code to manipulate the 3D Object, maybe it will save somebody 10 minutes if they want to play also.

To use the following code, place it at the bottom of the Sheet1(Convex 3D) Worksheet module, in Rob’s 3d workbook, and run it.

Sub markrotate()

Cells.Select
Selection.Interior.ColorIndex = 1
Drag_Box.Visible = False

Dim x As Integer
For x = 1 To 500
Sheet1.Cells(9, 2) = x / 50 'spin
Sheet1.Cells(3, 2) = x / 2 'size
Call Polygon
DoEvents
Next

For x = 1 To 250
Sheet1.Cells(12, 2) = x / -30 'spin
Call Polygon
DoEvents
Next

Cells.Select
Selection.Interior.ColorIndex = 2
Drag_Box.Visible = True

End Sub