VBA afbeelding invoegen uitbreiden naar meerdere formats .png .tiff

[Appievee]

Hallo forummers,

Een tijd geleden een mooie code gevonden voor het invoegen van plaatjes en deze VBA ingebakken in een bestand. En het werkt prima,.....maar
deze alleen geschikt voor Jpeg bestandjes.
Hoe is dit het makkelijkst uit te breiden met bijvoorbeeld .tiff .png en dergelijke? Heeft iemand hier een idee?

Sub Afbeelding_Invoegen()
    Dim vFilename As Variant
    Dim s As Shape, r As Range
    On Error Resume Next
    Sheets("Projectsheet").Shapes("TempPic").Delete
    On Error GoTo 0
    vFilename = Application.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg", , "In te voegen afbeelding selecteren", , False)
    If TypeName(vFilename) = "Boolean" Then Exit Sub: If CStr(vFilename) = "" Then Exit Sub
    If Dir(CStr(vFilename)) <> "" Then
        Set r = Range("B6"): w = Range("B6").MergeArea.Width: h = Range("B6").MergeArea.Width
        Set s = ActiveSheet.Shapes.AddPicture(CStr(vFilename), msoFalse, msoTrue, r.Left, r.Top, w, h)
        s.Name = "TempPic"
        s.TopLeftCell = Range("B6")
    End If
    
End Sub

Alvast bedankt :thumb:

 

[edmoor]

Wijzig dit: "JPEG-Afbeelding (*.jpg), *.jpg"

In: "Afbeeldingen (*.jpg; *.tiff; *.png),"

 

[Appievee]

Check, het werkt!

Bedankt voor de input:thumb: