Add image from folder

Sub Insert_Pics()

Sub Insert_Pics()

Dim strTemp As String
Dim strPath As String
Dim strFileSpec As String
Dim oSld As Slide
Dim oPic As Shape

' logos will be inserted in the alpha sequence; I renamed files with leading numbers (001, 002)

strPath = "C:\Users\logos\" 
strFileSpec = "*.*"

strTemp = Dir(strPath & strFileSpec)
 ActiveWindow.View.GotoSlide (1)

Do While strTemp <> ""
    Set oSld = ActivePresentation.Slides(1 + j)
     Set oPic = oSld.Shapes.AddPicture(FileName:=strPath & strTemp, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=520, _
    Top:=82, _
    Width:=-1, _
    Height:=-1)
    oPic.LockAspectRatio = msoTrue
    oPic.Height = 25
    strTemp = Dir
   j = j + 1
Loop

End Sub