excel2003 円を滑らかに回転させるには

質問

EXCEL2003で回転する円を描こうと思いました。
下の関数 Sub CommandButton1_Click() で描いた円を、さらにその下の関数
Sub Circle_Draw()　で回転させました。

最初 Circle_Draw() に DoEvents を入れなかったときは円が全く動かなかったの
ですが、入れたら動き出しました。
ただ、ときどき円の動きが止まってしまうことがあります。動きもギザギザ感
があります。
円を滑らかに動かすことはどうやったらできるのでしょうか。

Sub CommandButton1_Click()
ActiveSheet.Shapes.AddShape(msoShapeOval, 420, 300, 48#, 48#).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Selection.Name = "En"
End Sub

Sub Circle_Draw()
Dim XO, YO, XP, YP, Pai, W As Double

XO = 420: YO = 310: R = 250
Pai = 3.141593
K = 2048: W = 0.02

For ii = 1 To 2
For i = 0 To K
Call WaitTM(W)
XP = XO + R * Cos((i / K * 2 + 0.5) * Pai)
YP = YO - R * Sin((i / K * 2 + 0.5) * Pai)
With ActiveSheet.Shapes("En")
.Left = XP
.Top = YP
End With
DoEvents
Next i
Next ii
End Sub

Public Sub WaitTM(waitTime As Variant)
Sleep waitTime
End Sub

回答No.1

DreamyCat · ベストアンサー

プログラムは直したほうがいいところがいくつもあります。
・変数宣言を強制する（option explicit）にチェックを入れて直しましょう。
　変数の宣言の仕方を調べておきましょう。
　APIのSleepも値が間違っています。
またAPI宣言も省略しているので、
実際にはここに提示されたプログラムだけだと
エラーになって実行できません。

それはいいとして、
Windows　XPのPCがしっかり動作する状態なら、滑らかに動くはずです。
( celeron Mかそれ以上のCPUでメモリーが１GB以上あること。）
Windows　VistaやWindows　７の場合はDoEvents:DoEventsのように２～３個入れてください。
（メモリーは２GB以上。64ビット版なら４GB以上搭載したPC）
（最近はかなり改善されてきていてDoEvents１個でもなんとか大丈夫かもしれません。）

さらにグラフィック描画性能も大きく影響します。
PC性能が不足している場合は、
円の半径・移動半径を小さくする。枠線を細くする・・・少し改善できます。
塗りつぶししない。・・・かなり速くなります。
もう少し無駄の無い式に書き換える。・・・たいして速くはならないでしょう。

→　おそらく７～８年前のXP機でPCの性能が低すぎるためだと思います。
あるいは
PCがバックアップ中だとか何かの裏作業をしていた可能性もあります。しばらく経ってからPCを再起動してから実行すれば正常になります。

お礼

DreamyCatさんありがとうございます。
返信が遅れてしまい、申し訳ありませんでした。

ＰＣの性能ですか。それほど古くはないのですが、新しくもありません。
３年位前だったと思います。ただＣＰＵはかなりケチって、安いのにしました。

ある程度は動くのですが、時々止まってアレッと思う感じです。

ありがとうございました。もう少し勉強しておきます。