[發問] 有關Userform image

s13030029

目前這段程式是打開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)

附檔
下載次數: 2

2019-7-22 15:56

准提部林

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

s13030029

回復 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

s13030029

已解決~~~~
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