返回列表 上一主題 發帖

[發問] 有關Userform image

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-7-22 15:56 | 只看該作者

[發問] 有關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)
收藏 分享

准提部林

帖子
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

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題