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