This week's Excel Optical Illusion is quite different. It's a Stereokinetic illusion.
How's that for an advanced Excel chart?
The depth of field is totally illusory. The actual chart contains a check box to turn the chart animation on and off.
This is a bubble chart with a tiny bit of VBA thrown in, just for the animation. Here is the VBA in it's entirety:
Public Sub Animate_Figure()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("1")
If Not .[Animate] Then GoTo exit_here
If .[i] = 1 Then .[i] = .[n] + 1
.[i] = .[i] - 1
Set ws = Nothing
The actual chart is smoother than the animated GIF displayed here. You can adjust the speed of the animation by changing the number of points in an orbit on the chart worksheet.
It looks much better in Excel 2007 and above, but works for all versions. Let me know what you think of this...
More to come. Here's the chart:
If you liked this article, please share it!