Insert multiple images at once from a folder

beyondimage · #1 01-31-2017, 09:48 AM

Good morning everyone!

So I have taken this code from https://www.extendoffice.com/documen...-pictures.html as it should be seen below.

What I want to know is if anyone can help me with -

Having all the photos import across 'Row B', instead of in a column fashion.
And how to add the 'File Names' (i.e. excel_image2.jpg) of said images, above each of their image in 'Row A'.
Thanks for all the help ahead of time!

Code:

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy images from one folder to another	saurabhlotankar	Excel Programming	6	07-03-2015 05:34 AM
Insert multiple images & controls into a document	vanwijnen	Word VBA	1	06-05-2015 06:16 AM
Insert paragraph break before images	jsoule	Word VBA	3	02-25-2015 07:53 AM
Insert different images to multiple labels	Ravon	Word	3	10-16-2014 01:13 PM
Insert images with incrementallly-numbered filenames	mqx	Word VBA	4	11-13-2013 11:22 AM