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
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