[發問] 有關Userform image

目前這段程式是打開userform會自動匯入圖片
但是要怎樣修改才能判斷資料夾裡有檔案才匯入，沒檔案則跳出msgbox提醒找不到檔案

Private Sub UserForm_Initialize()
Dim imgpath As String
imgpath = ThisWorkbook.Path & "\" & "img"
Image1.Picture = LoadPicture(imgpath & "\" & "123.jpg")
End Sub

image_add.rar (101.24 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

2^#

發表於 2019-7-22 19:43 | 只看該作者

Private Sub UserForm_Initialize()
Dim imgpath As String
imgpath = ThisWorkbook.Path & "\" & "img"
if dir(imgpath & "\" & "123.jpg")="" then exit sub
Image1.Picture = LoadPicture(imgpath & "\" & "123.jpg")
End Sub

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

3^#

發表於 2019-7-23 08:25 | 只看該作者

回復 2# 准提部林

這個方法可以~~~
不過已經找不到圖片了，要怎麼讓userform不再跳出來???

Private Sub UserForm_Initialize()
imgname = ActiveWorkbook.Sheets(1).Range("A1").Value
Dim imgpath As String
imgpath = ThisWorkbook.Path & "\" & "img"
If Dir(imgpath & "\" & imgname & ".jpg") = "" Then
MsgBox ("找不到圖面!!!")
Exit Sub
End If
Image1.Picture = LoadPicture(imgpath & "\" & imgname & ".jpg")
End Sub

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

4^#

發表於 2019-7-23 09:25 | 只看該作者

已解決~~~~
Sub 顯示圖面()
imgname = ThisWorkbook.Sheets("製程模板").Range("I4").Value
Dim imgpath As String
imgpath = ThisWorkbook.Path & "\" & "圖面"  '指定資料夾
If Dir(imgpath, vbDirectory) = "" Then MkDir imgpath

If imgname = "" Then
      A = MsgBox("請先在計畫表輸入產品編號!!!", vbInformation, "提示訊息")
      Exit Sub
Else
      If Dir(imgpath & "\" & imgname & ".jpg") = "" Then
         B = MsgBox("找不到圖面!!!，請確定圖面資料夾裡有該檔名", vbCritical, "提示訊息")
         Exit Sub
      Else
         圖面.Show 0
      End If
End If

End Sub

TOP