[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シートのImage1.Pictureへファイルを連続して読み込ませたい』(オサム)
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 は、タイマーがわりに使っています。 2007でタイマーのやさしい使い方があれば教えてください。 よろしくお願いします。
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
これできちんと表示されない場合は、 待機回数の値を増やしてみてください。
表示間隔は、待機時間の値を増減してみてください。
↑同様の質問です
ichinose
今後ともわからないことがあったときは助けてください。
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.