- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 253
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-22
              
|
2#
發表於 2018-12-21 19:53
| 只看該作者
本帖最後由 Hsieh 於 2018-12-22 16:13 編輯
回復 1# momo020608
- Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
- Sub ShowPicture()
- fd = Application.GetOpenFilename("圖片 (*.jpg;*.bmp), *.jpg;*.bmp", , , , True) '開啟複選圖檔對話方塊
- If Not IsArray(fd) Then Exit Sub
- With Sheets(1).Image1
- .PictureSizeMode = fmPictureSizeModeStretch '圖片佈滿
- For Each f In fd
- DoEvents
- .Picture = LoadPicture(f) '載入圖片
- DoEvents
- Sleep 1000
- DoEvents
- Next
- End With
- End Sub
|
|
發表於 2018-12-20 20:55
| 
