Question

我正在尝试使用宏来加载具有单元格值名称的文件夹中的图片。

所以值： Q2 =狗在哪里然后我想加载图片'Where is the 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

Excel Vba，从文件夹加载图片

1 个答案: