How to Insert Multiple Pictures at Once in Excel (2 Easy Ways)

Method 1 – Using Insert Picture Feature to Insert Multiple Pictures at Once in Excel

Steps:

Go to the Insert tab and then click on Pictures.

Using Insert Picture Feature

  • In the dialog box, look for the folder where your pictures are kept. Navigate to the folder and find the pictures. Select multiple pictures by clicking them and holding the Ctrl button.

Selecting Pictures to Insert Multiple Pictures in Excel at Once

  • Click the Insert button.

Using Insert Button to Insert Multiple Pictures in Excel at Once

  • All the pictures will be inserted into the worksheet.

Insert Multiple Pictures in Excel at Once in The Worksheet

  • To resize them in an identical shape. keep these pictures selected, and put Width and Height values in the Picture Format tab.

Using Picture Format Tab to Insert Multiple Pictures in Excel at Once

  • Move the pictures into separate cells.

Insert Multiple Pictures in Excel at Once Using Insert Picture Feature

Read More: How to Insert Picture in Excel Cell Automatically


Method 2 – Applying VBA code to Insert Multiple Pictures at Once in Excel

Steps:

  • Select the cell where you want your first picture to be (the imported pictures will have the same size as the size of the cell).
  • Go to the Developer tab and click on Visual Basic (or, press Alt+F11) to open Microsoft Visual Basic for Applications.

Selecting Visual Basic to Enable VBA Macro

  • Click on Insert > Module.

Using Insert Module Feature

  • Enter the following VBA code and press F5 to run it.
Sub InsertPictures()
Dim myPICLt() As Variant
Dim ImageFormat As String
Dim PicRng As Range
Dim PicShape As Shape
On Error Resume Next
myPICLt = Application.GetOpenFilename(ImageFormat, MultiSelect:=True)
myColInd = Application.ActiveCell.Column
If IsArray(myPICLt) Then
    myRowInd = Application.ActiveCell.Row
    For lLoop = LBound(myPICLt) To UBound(myPICLt)
        Set PicRng = Cells(myRowInd, myColInd)
        Set PicShape = ActiveSheet.Shapes.AddPicture(myPICLt(lLoop), msoFalse, msoCTrue, PicRng.Left, PicRng.Top, PicRng.Width, PicRng.Height)
        myRowInd = myRowInd + 1
    Next
End If
End Sub 
			
VBA Breakdown
  • ‘Define the Variables
Dim myPICLt() As Variant
Dim ImageFormat As String
Dim PicRng As Range
Dim PicShape As Shape
  • ‘Set variable to select multiple pictures from the application
myPICLt = Application.GetOpenFilename(ImageFormat, MultiSelect:=True)
  • ‘Command to activate last used from a column
myColInd = Application.ActiveCell.Column
  • ‘Apply the If condition for a variable with pictures
If IsArray(myPICLt) Then
    myRowInd = Application.ActiveCell.Row
  • ‘Apply For loop to take pictures one by one
For lLoop = LBound(myPICLt) To UBound(myPICLt)
  • ‘Set Range for the pictures
Set PicRng = Cells(myRowInd, myColInd)
  • ‘Set shapes for the pictures
Set PicShape = ActiveSheet.Shapes.AddPicture(myPICLt(lLoop), msoFalse, msoCTrue, PicRng.Left, PicRng.Top, PicRng.Width, PicRng.Height) 

Running the VBA code to Insert Multiple Pictures in Excel at Once

  • Select the pictures you want to import and click Open.

Clicking the Open Button

  • The selected pictures will be imported into the worksheet. You can now rearrange the pictures into your preferred cells.

Insert Pictures by Applying the VBA Code

Note: If the Developer tab is not available, you need to customize it. Go to Files>Options. Click Customize Ribbon, select Developer and press OK.

Read More: How to Link Picture to Cell Value in Excel


Download Practice Workbook


Related Articles


<< Go Back to Excel Insert Pictures | Learn Excel

Get FREE Advanced Excel Exercises with Solutions!
Md. Abu Sina Ibne Albaruni
Md. Abu Sina Ibne Albaruni

Md. Abu Sina Ibne Albaruni holds a BSc in Mechanical Engineering from Bangladesh University of Engineering and Technology. He is a dedicated employee of the ExcelDemy project. He has written quite a large number of articles for ExcelDemy. Besides, he has expertise in VBA. He efficiently automates Excel issues using VBA macros and actively engages in the ExcelDemy forum, offering valuable solutions for user interface challenges. His areas of interest in work and study span MATLAB, Machine Learning,... Read Full Bio

We will be happy to hear your thoughts

Leave a reply

Advanced Excel Exercises with Solutions PDF

 

 

ExcelDemy
Logo