invoegen figuur uit bestand

[flats]

Dag, ik zou graag een macro maken die het volgende doet:
Invoegen …. Afbeelding invoegen … uit bestand …. D:\Fla\voorbeeld
Hier zou de macro moeten eindigen om de juiste .jpg te selecteren.
Met macro opnemen lukt het mij niet.
Alvast bedankt voor de hulp

 

[flats]

Sub InsertPic()
Const sDir As String = "D:\Fla\example"
Dim sPicFile As String

If Not Dir(sDir, vbVolume) = "" Then If Not Dir(sDir, vbDirectory) = "" Then ChDir (sDir)
sPicFile = Application.GetOpenFilename("JPG pictures (*.jpg), *.jpg")

If Not sPicFile = "False" Then
With ActiveSheet.Pictures.Insert(sPicFile)
.Left = ActiveCell.Left
.Top = ActiveCell.Top
End With
End If
End Sub