How to insert an image of your choice with a macro

[JamesStag]

Hello everyone, i am looking to click a button and have a specific folder open to insert a picture or two. Any help would be great.

 

[Domenic]

You'll likely need to modify the following macro depending on your actual requirements. But the following macro will prompt the user to select one or more image files from the specified folder, and then insert them on the active worksheet, and located at the active cell...

Option Explicit

Sub InsertPictures()

    Dim i As Long
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .ButtonName = "Insert"
        .Filters.Clear
        .Filters.Add Description:="Image Files", Extensions:="*.gif;*.jpg;*.png" 'add other image files as desired
        .InitialFileName = "C:\Users\Domenic\Pictures\" 'change the source folder as desired
        .Title = "Insert Picture"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        For i = 1 To .SelectedItems.Count
            ActiveSheet.Shapes.AddPicture Filename:=.SelectedItems(i), LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=-1, Height:=-1
        Next i
    End With
    
End Sub

Hope this helps!

 

[JamesStag]

Not only dose it help, it works perfectly !!!!!! thank you so much. I was not even close...

 

[JamesStag]

One other thing, would be, to set the location and size, any thought ? i am looking online now but any more help would be amazing.

 

[Domenic]

thank you so much.

You're very welcome, glad I could help!

One other thing, would be, to set the location and size, any thought ?

Sure, where do you want the picture or pictures inserted? And how do you want the picture or pictures sized?