エクセルVBAで芸術的な画面の動き？

このカテを検索していて、以下のような芸術的というか、とても面白いVBAのコードを見つけました。テストしたらエクセルでこんなことが出来るのかと驚きました。
自分ではコードはわかりますが、センスがなくてこういう動きはなかなか思いつきません。
多分他にもいろんなことが出来るのでしょうが、どんな面白いのがありますか？是非教えてください。

Sub test01()
Randomize
With ActiveSheet
.Cells.Interior.ColorIndex = 1
CL = Int((50 * Rnd) + 1)
L1 = Int((700 * Rnd) + 20)
H1 = Int((450 * Rnd) + 20)
Set SA = .Shapes.AddShape(msoShape5pointStar, L1, H1, 25, 25)
SA.Name = "Merlion_" & SA.Name
SA.Fill.ForeColor.SchemeColor = CL
For n = 1 To 100
CL = Int((50 * Rnd) + 1)
L2 = Int((600 * Rnd) + 20)
H2 = Int((300 * Rnd) + 20)
SA.Top = H2 - SA.Width / 2
SA.Left = L2 - SA.Height / 2
SA.Fill.ForeColor.SchemeColor = CL
Set SL = .Shapes.AddLine(L1, H1, L2, H2)
SL.Name = "Merlion_" & SL.Name
Application.StatusBar = SL.Name
SL.line.Weight = 0.75
SL.line.ForeColor.SchemeColor = CL
L1 = L2
H1 = H2
Next
SA.ZOrder msoBringToFront
SA.line.Visible = True
SA.line.ForeColor.SchemeColor = CL
For i = 1 To 800 Step 60
SA.Rotation = i / 10
SA.line.Weight = i
DoEvents
Next
For Each s In .Shapes
If s.Name Like "Merlion_*" Then s.Delete
Next
.Cells.Interior.ColorIndex = xlNone
End With
End Sub

No.1 回答者： merlionXX 回答日時： 2005/07/14 13:04

あれえ？

どこかで見たコードとおもったらわたしのじゃないですか？！
面白かったですか？それは良かった。

質問のはランダムに星が飛んで、その軌跡を直線で描画させてるんですが、あとはランダムに飛ぶ代わりに円の方程式とか2次関数とかでやったことがあります。

他にももっと面白いのが出てくるといいですね。わたしも楽しみです。