[發問] VBA 表單圖形為何無法至最上層

本帖最後由 lichang 於 2015-9-16 23:22 編輯

各位大大，因為有查了一下EXCEL VBA好像不支援GIF動態檔(外掛除外)
所以很天真的想，那用三張圖，按照延遲時間來讓照片至頂，當作動態的感覺!!
(不想使用外部插入圖檔的方式，因為這樣我還要保存圖檔)
但現在發現，使用單動的時候，可以有效果出現，但當連續動作時，卻無法達到此效果!!
不知道有哪位大大能幫我解惑一下嗎??該如何修正!!

另外一問，如果這一關過了，我有辦法寫成無限迴圈，除非我又點擊其他按鍵才退出，可以嗎??

新增 Microsoft Excel 工作表.zip (185.56 KB)

樓主熱帖

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

9^#

發表於 2015-9-17 09:36 | 只看該作者

回復 8# lichang
sleep 之前加 DoEvents

TOP

lichang

中學生 Rank: 2

帖子: 127
主題: 51
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2024-9-28

8^#

發表於 2015-9-17 08:59 | 只看該作者

回復 7# GBKEE

版主你怎麼這麼厲害，請問一下，我的用法裡面是哪個出現問題才導致不能使用呢??

sleep函式嗎??還是沒有用陣列撰寫??

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2015-9-17 06:29 | 只看該作者

回復 6# lichang
試試看

#If VBA6 Then
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#Else
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 64 Bit Systems
#End If
Dim Msg As Boolean 'Boolean 初始值False
Private Sub CommandButton1_Click()
Msg = Not Msg '反轉:當True轉為False,當False轉為True
Image_ZOrder
End Sub
Private Sub Image_ZOrder()
Dim Ar(), i As Integer, t As Date
Ar = Array(Image1, Image2, Image3)
t = Time
Do While Msg 'Msg=True 執行這 Do Loop 的迴圈
DoEvents
'Sleep 1000
If t + #12:00:01 AM# <= Time Then '每秒一次,也可以不用 Sleep
Ar(i).ZOrder msoBringToFront
i = i + 1
If i > UBound(Ar) Then i = 0
t = Time
End If
Loop
End Sub