Skip to main content

How to insert multiple pictures and resize them at once in Excel?

It is easy for us to insert one picture into Excel, but if you need to insert multiple pictures at once so that can save much time, how could you do?


Insert multiple pictures and resize them in bulk by Insert Picture feature

We can insert multiple pictures in bulk by the (Insert) Picture feature in Excel, and then resize them simultaneously. Please do as follows:

1. In the worksheet, click Insert > Picture.

2. In the Insert Picture dialog, please open the folder containing pictures you will insert, select multiple pictures as you need, and click the Insert button. See screenshot:
Note: Holding Ctrl key, you can select multiple nonadjacent pictures with clicking them one by one; holding Shift key, you can select multiple adjacent pictures with clicking the first picture and the last one.

Now pictures are inserted in bulk and stacking in the worksheet.

3. Keep these pictures selected, and resize them in bulk by entering new number into both Width and Height boxes in the Size group on the Format tab. See screenshot:

Now all inserted pictures are changed to the same size simultaneously at once.

4. At present you need to manually move each picture separately to a fit place.

Note: If there are dozens of pictures stacking, it will be quite time-consuming to manually move them to fit places.

Batch insert multiple pictures matching with cell contents in Excel

The Match Import Pictures feature of Kutools for Excel, is a fantastic tool that can batch import and insert multiple pictures based on cell contents, and resize imported pictures same as cell size or to the specified size easily.


ad match imported pics 01

Kutools for Excel - Supercharge Excel with over 300 essential tools. Enjoy a full-featured 30-day FREE trial with no credit card required! Get It Now

Insert multiple pictures and resize them in bulk with OneNote

To avoid moving stacking pictures one by one, this method introduce another trick to insert multiple pictures with the help of OneNote. Please do as follows:

1. Launch OneNote, and create a new page. And then click Insert > Picture.

2. In the Insert Picture dialog, please open the folder containing pictures you will insert, select multiple pictures as you need, and click the Insert button. See screenshot:
Note: Holding Ctrl key, you can select multiple nonadjacent pictures with clicking them one by one; holding Shift key, you can select multiple adjacent pictures with clicking the first picture and the last one.

doc insert multiple pictures OneNote 032

3. Press Ctrl + A keys to select all inserted pictures in the OneNote, and then press Ctrl + C keys to copy them.

4. Go the worksheet in Excel, and press Ctrl + V keys to paste the pictures in the worksheet. Now all pictures are pasted vertically as left screenshot shown.

5. Select any one of the pictures, and press Ctrl + A keys to select all of them. Then resize the pictures in bulk by entering new numbers into both Width and Height boxes in the Size group on the Format tab. See screenshot:

Now all specified pictures are inserted in Excel and resized to the same size in bulk.


Insert multiple pictures into Excel with VBA code

With the following VBA code, you can insert multiple pictures into Excel file cell by cell.

1. Select the first cell of destination range that you want to insert pictures.

2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

3. Click Insert > Module, and paste the following macro in the Module Window.

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

4. Then press the F5 key to run this code.

5. In the Open dialog, please open the folder which contains the pictures that you want to insert, select multiple pictures you will insert, and click the Open button. And all the selected pictures have been imported into your selection based on the cell size. See screenshot:


Insert multiple pictures and auto-adjust them with Kutools for Excel

Kutools for Excel’s Import Pictures utility can help you quickly insert multiple pictures into Excel based on the cell size or picture size. You can specify the pictures’ height and width as you need as well.

Kutools for Excel - Supercharge Excel with over 300 essential tools. Enjoy a full-featured 30-day FREE trial with no credit card required! Get It Now

1. Click Kutools Plus > Import / Export > Import Pictures, see screenshot:

2. In the Import Pictures dialog box, please do as follows:
(1) Specify the display order of pictures from the Import order drop down list, you can choose Fill vertically cell after cell or Fill Horizontally cell after cell.
(2) Click Add button to select the image files or folder to add the pictures into the Picture list. And all your selected pictures will be listed in the list box.
(3) Click the Import size button;

3. Now in the Import Picture Size dialog, you can choose the picture size matching your need. See screenshot:

4. After specifying the picture size, please click OK to close this dialog, and back to the Import Pictures dialog, click Import button to import the images.

5. In the new Import Pictures dialog box, please choose the first cell of destination range you will insert pictures, and click the OK button.

At present, all your selected pictures have been inserted into your cells from the active cell vertically or horizontally. See right screenshot:

The Import Pictures feature of Kutools for Excel is designed to insert a batch of pictures simultaneously with matching cell size, specified size, or pictures' own sizes in Excel. Have a Free Trial!


Insert multiple pictures matching with their names with Kutools for Excel

Kutools for Excel also supports an dramatical Match Import Pictures feature to match pictures and cell contents and insert matched pictures only in bulk in Excel.

Kutools for Excel - Supercharge Excel with over 300 essential tools. Enjoy a full-featured 30-day FREE trial with no credit card required! Get It Now

1. Select your picture name cells that you want to insert their matching pictures, and click Kutools Plus > Import / Export > Match Import Pictures. see screenshot:

2. In the popped out Match Import Pictures dialog box, please do as follows:
(1) Specify the display order of pictures from the Import order drop down list;
(2) Click Add button to add the pictures to the picture list box. For your information, only matched pictures will be listed out.
(3) Then click Import Size button.

3. Now in the Import Picture Size dialog, you can choose the picture size matching your need, and click the Ok button. See screenshot:

4. Now you return to the Import Pictures dialog, click Import button to import the images.

5. In the popping out Match Import Pictures dialog, please specify the first cell of destination range you will insert pictures, and click the OK button. See screenshot:

So far, all the pictures are inserted into the cells based on their relative names. See right screenshot:

The Match Import Pictures feature of Kutools for Excel can help Excel users quickly filter pictures based on cell values and then insert these pictures in bulk. In addition, these matched pictures can be resized to the specified size or cell size automatically. Have a Free Trial!


Demo: Insert multiple pictures and resize them at once in Excel

Kutools for Excel includes more than 300 handy tools for Excel, free to try without limitation in 30 days. Free Trial Now!      Buy Now!


Related articles

Best Office Productivity Tools

🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...

Description


Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
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
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

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)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
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
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

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)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations