[[20110111232218]]　『シートのImage1.Pictureへファイルを連続して読み』（オサム）　ページの最後に飛ぶ

『シートのImage1.Pictureへファイルを連続して読み込ませたい』（オサム）
バージョンは２００７です。
画像ファイル"0.gif"～"9.gif"（０・１・２・３・・・９）までを
For　Nextで繰り返し読み込み、各々表示させながら、最後は９を残したい。
これがどうやっても、９のみの最後の読み込みファイルが表示されたままです。

 For i = 0 To 9 Step 1

        kazu = CStr(i)

        Worksheets("タイマー表示").Image1.Picture = LoadPicture("数字\" & kazu & ".gif")
             For h = 1 To 100000000 Step 1
                 Next h

   Next i

どうすればよいのでしょうか？
なお、Worksheets("タイマー表示").Image1.Picture = LoadPicture("数字\" & kazu & ".gif")
の数字は画像ファイルの格納フォルダです。同じフォルダ内にしても同じでした。
また、 For h = 1 To 100000000 Step 1

                 Next h
は、タイマーがわりに使っています。
２００７でタイマーのやさしい使い方があれば教えてください。
よろしくお願いします。

 Option Explicit
 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 Sub disp()
    Const 待機時間 = 1000
    Const 待機回数 = 8
    Dim g0 As Long
    Dim g1 As Long
    Dim kazu As String
    For g0 = 0 To 9
        kazu = CStr(g0)
        Worksheets("タイマー表示").Image1.Picture = LoadPicture("数字\" & kazu & ".gif")
        For g1 = 1 To 待機回数
           DoEvents
        Next
        Sleep 待機時間
    Next
 End Sub

 これできちんと表示されない場合は、
 待機回数の値を増やしてみてください。

 表示間隔は、待機時間の値を増減してみてください。

[[20081212225700]]

 ↑同様の質問です

 ichinose

ありがとうございました！
感謝いたします。

今後ともわからないことがあったときは助けてください。

コメント返信：

[ 一覧(最新更新順) ]

[[20110111232218]] 『シートのImage1.Pictureへファイルを連続して読み』（オサム） ページの最後に飛ぶ

[[20110111232218]]　『シートのImage1.Pictureへファイルを連続して読み』（オサム）　ページの最後に飛ぶ