今回はオートシェイプで時計みたいな図を描き、その針を1秒ごとに動かして3分間計測するものを作ってみた。
使用目的は、自分がラーメンを作る際に利用できないか?的な感じだが。 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分半くらいが一番旨い・・・と思う。
by slayer0210
| 2005-12-01 09:10
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||