標題: [發問] 漂浮圖片 [打印本頁]

---

作者: momo020608    時間: 2018-12-20 20:55     標題: 漂浮圖片

发表于 2009-7-30 19:58 | 只看该作者 |倒序浏览 |阅读模式
有高手知道在 Excel 里怎么做浮动图片呢 是上下浮动的 跟

---

作者: Hsieh    時間: 2018-12-21 19:53

本帖最後由 Hsieh 於 2018-12-22 16:13 編輯

回復 1# momo020608

[attach]29844[/attach]

1. Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
   
2. Sub ShowPicture()
   
3. fd = Application.GetOpenFilename("圖片 (*.jpg;*.bmp), *.jpg;*.bmp", , , , True) '開啟複選圖檔對話方塊
   
4. If Not IsArray(fd) Then Exit Sub
   
5. With Sheets(1).Image1
   
6.    .PictureSizeMode = fmPictureSizeModeStretch '圖片佈滿
   
7. For Each f In fd
   
8. DoEvents
   
9.   .Picture = LoadPicture(f)  '載入圖片
   
10. DoEvents
    
11.   Sleep 1000
    
12. DoEvents
    
13. Next
    
14. End With
    
15. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)