タイマー(未完成)

今回はオートシェイプで時計みたいな図を描き、その針を1秒ごとに動かして3分間計測するものを作ってみた。
使用目的は、自分がラーメンを作る際に利用できないか?的な感じだが。
e0080122_9493.gif

Sub ラーメン時計()
 Dim myobj As Shape
 Dim i As Integer
 Dim j As Integer
 Set myobj = ActiveSheet.Shapes("針")

 With myobj
  For j = 1 To 3
    For i = 1 To 360 Step 6
      Application.Wait (Now + TimeValue("0:00:01"))
        .IncrementRotation 6
     Next
   Application.Speech.Speak j & "分" 'しゃべらす必要はないが
  Next
 End With
   Application.Speech.Speak "ラーメンが出来ました"
   'しゃべらす必要はないがめでたいので・・・
End Sub

構文的にあってるかどうかは別として、目的のものは出来たので良かった。
しかし実際問題、ラーメンは2分半くらいが一番旨い・・・と思う。
[PR]
by slayer0210 | 2005-12-01 09:10 | マクロ


<< 行列を入れ替える(関数) シート名の変更 >>