VBA CODE FOR SELECTING PICTURE FROM A SPECIFIC FOLDER

[ElCapitano]

Hello,guys
You have any ideas why this code doesn't work? Is to put pictures into a word document from a specific folder... Thanks...

Sub GetPictures()
    Dim sPic As String
    Dim sPath As String

    sPath = "c:\myfolder"
    sPic = Dir(sPath & "*.jpg")

    Do While sPic <> ""
        Selection.InlineShapes.AddPicture _
          FileName:=sPath & sPic, _
          LinkToFile:=False, SaveWithDocument:=True
        sPic = Dir
        Selection.TypeParagraph
        Selection.TypeParagraph
    Loop
End Sub

[arnelgp]

your variable sPath need to have a backslash at the end:

sPath = "c:\myfolder\"

[gmayor]

You may find https://www.gmayor.com/photo_gallery_template.html useful.

[ElCapitano]

your variable sPath need to have a backslash at the end:

sPath = "c:\myfolder"

thanks... you have any ideea how can i control where to put the pictures ? what I must change in the code...