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