Как сделать так, чтобы мой код принимал оба файла JPEG в формате PNG?

Question

У меня есть следующий код для логотипа клиента, который необходимо поместить в текстовое поле.Я уже понял, что файлы .png не работают.К сожалению, 50% моей базы данных - это файлы .png, поэтому я надеюсь, что кто-то здесь может предоставить мне подходящий способ использования файлов .png.

Это код, который работает для файлов .jpeg

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String

       With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Selecteer het logo van de klant"
        .Filters.Clear
        .Filters.Add "All Pictures", "*.*"

        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
               Logopath = vrtSelectedItem
            Next vrtSelectedItem

        Else
            MsgBox ("Macro gestopt - Logo is vereist")
            Stop
        End If
    End With
    For Each Sh In Sheets
        If Sh.Name Like "Logo" Then
            Sheets("Logo").Delete
        End If
    Next

    Set xPic = LoadPicture(Logopath)
    Set xSh = Sheets("Voorblad").Shapes("LogoBox")
    xSh.Height = 55
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture Logopath

End Sub