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

lichang

請問各位大大，我想製作一個表單，想使用PNG的圖檔來去除背景色
但當我載入PNG檔案時，他寫"檔案不正確"請問有什麼方式可以載入圖片又可去除背景色嗎??

lichang

請問各位大大，我想在VBA的表單中插入圖片，但我想讓他有動的感覺
我可以讓圖片做到有左右擺動的感覺嗎??

Joforn

转成Gif图片试试。

lichang

回復 3# Joforn

可是我在表單中插入gif 檔，他不會動

lichang

小弟我突發奇想，用騙的方式，貼三張圖至表單中，然後定時修改至頂表單
但現在發現很奇怪，連續執行時，看不出效果，單動的時候就可以，請問該怎麼解決??
另外，我有辦法讓這回圈一直跑，還可以執行其他動作嗎??
新增 Microsoft Excel 工作表.zip (193.92 KB)

下載次數: 3

2015-9-16 13:40

lichang

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

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

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

下載次數: 12

2015-9-16 23:20

GBKEE

回復 6# lichang
試試看

1. #If VBA6 Then
   
2. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
   
3. #Else
   
4. Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 64 Bit Systems
   
5. #End If
   
6. Dim Msg As Boolean 'Boolean  初始值False
   
7. Private Sub CommandButton1_Click()
   
8.    Msg = Not Msg  '反轉:當True轉為False,當False轉為True
   
9.    Image_ZOrder
   
10. End Sub
    
11. Private Sub Image_ZOrder()
    
12.     Dim Ar(), i As Integer, t As Date
    
13.     Ar = Array(Image1, Image2, Image3)
    
14.     t = Time
    
15.     Do While Msg  'Msg=True 執行這 Do Loop 的迴圈
    
16.         DoEvents
    
17.         'Sleep 1000
    
18.         If t + #12:00:01 AM# <= Time Then  '每秒一次,也可以不用 Sleep
    
19.             Ar(i).ZOrder msoBringToFront
    
20.             i = i + 1
    
21.             If i > UBound(Ar) Then i = 0
    
22.             t = Time
    
23.         End If
    
24.     Loop
    
25. End Sub

複製代碼

lichang

回復 7# GBKEE

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

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

jackyq

回復 8# lichang
   sleep 之前加 DoEvents