Specifieke map op het netwerk openen

[malawi]

Ik wil graag via een knop een specifieke map op de PC openen waar ik een aantal afbeeldingen (*jpg) heb staan. Hieruit wil ik kiezen en deze invoegen in mijn excelblad.

Sub t()
ScreenUpdating = False
fileToOpen = Application _
.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg")
If fileToOpen <> False Then ActiveSheet.Pictures.Insert(fileToOpen).Select
End Sub

In bovenstaande wil ik graag "C:\Users\Public\Pictures" als specifieke map invoegen.

Hoe moet deze macro worden aangepast?

bij voorbaat dank,

Ewald

 

[Timshel]

Filedialog heeft iets meer mogelijkheden

Sub t()
    ScreenUpdating = False
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "Selecteer het bronbestand"
        .AllowMultiSelect = False
        .InitialFileName = "C:\Users\Public\Pictures"
        .Filters.Clear
        .Filters.Add "JPEG-Afbeelding (*.jpg)", "*.jpg"
        .Filters.Add "Alle Bestanden", "*.*"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        ActiveSheet.Pictures.Insert(.SelectedItems(1)).Select
    End With
End Sub

Vergeet de codetags niet als je code plaatst. Ziet er beter uit toch?

 

[snb]

Hiermee lukt het waarschijnlijk ook:

Sub M_snb()
   With Application.FileDialog(1)
        .InitialFileName = "C:\Users\Public\Pictures\*.jpg"
        If .Show Then Pictures.Insert (.SelectedItems(1))
    End With
End Sub