根据名称不同，显示不同的图片

糊涂过

D3单元格为有序列的下拉列表，选择不同的图片名字就会在IMAGE标签中显示相应的图片
用了论坛里某个大佬的代码，可以实现这个功能了，但是遇到一个问题，就是我的图片有的格式是JPG的，有的是PNG的
自己又加了一个IF也不行，显示PNG的时候总是提示出错！

求助：当选择图片名称时，有JPG的就显示JPG格式图片，没有JPG的就显示PNG格式图片（注：图片只有唯一的一个名，文件夹不会同时存在同名的JPG和PNG名称图片）

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "D3" Then Exit Sub
    If Target = "" Then Exit Sub
    Dim f$
    f = ThisWorkbook.Path & "\图片\" & Target & ".jpg"
    If Dir(f) <> "" Then
        With Me.Image1
            .Picture = LoadPicture(f)
            .PictureSizeMode = 1
        End With
    Else
        Me.Image1.Picture = LoadPicture("")
        MsgBox "图片没有发现！"
    End If
End Sub

过客fppt

我加了三行，你试一下
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "D3" Then Exit Sub
    If Target = "" Then Exit Sub
    Dim f$
    f = ThisWorkbook.Path & "\图片\" & Target & ".jpg"
    If Dir(f) = "" Then
    f = ThisWorkbook.Path & "\图片\" & Target & ".png"
     endif
    If Dir(f) <> "" Then
        With Me.Image1
            .Picture = LoadPicture(f)
            .PictureSizeMode = 1
        End With
    Else
        Me.Image1.Picture = LoadPicture("")
        MsgBox "图片没有发现！"
    End If
End Sub

半百

建议上传附件

3190496160