Excel Vba中，從文件夾中加載圖片

Question

我正在嘗試使用單元格的名稱從文件夾中加載圖片的宏。

所以 值： Q2 =哪裏狗 然後我要加載的畫面「哪裏dog.jpg」中的細胞C2 ：E2

細胞Q2的值改變時，其他宏是運行。

我在這裏有一些停電，因爲無法工作。

下面是代碼：

 Set PicRange = Sheet1.Range("C2:E14") 


     Filepath = "C:\Pictures\" 
     Filename = Filepath & Sheet1.Range("Q2").Value & ".jpg" 

     If Dir(Filename) = "" Then MsgBox "Nothing!" 
     Exit Sub 

     With PicRange 
      Set Pic = Sheet1.Shapes.AddPicture(Filename, msoFalse, msoTrue, .Left, .Top, .Columns.Width, .Rows.Height) 

     End With 

圖片不顯示

Answer 1

你編寫代碼的方式，它會永遠Exit Sub添加照片前。

撰寫您If塊這樣的：

If Dir(Filename) = "" Then 
    MsgBox "Nothing!" 
    Exit Sub 
End If