Dialog openen in huidige map

Sub Foto_Invoegen()
    

With Application.FileDialog(msoFileDialogFilePicker)
    '.InitialFileName = strPath
        .AllowMultiSelect = False
        .ButtonName = "Openen"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"

        If .Show = -1 Then
            Dim img As Object
            Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

            'Scale image size
            'img.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
            'img.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft

            'Position Image
            img.Left = 20
            img.Top = 504

            'Set image sizes in points (72 point per inch)
            
            img.Height = 198.4251968504
        Else
            MsgBox ("Cancelled.")
        End If
    End With
End Sub