Рет қаралды 120,694
This video is about How To Insert Multiple Pictures At Once In Excel? or you can say Insert multiple pictures into Excel with VBA code.
Insert multiple pictures in Excel at once, how to insert multiple photos in excel
Excel-VBA : Insert Multiple Images from a Folder to Excel Cells
The Insert Pictures add-in takes multiple images of your choice and fits them into separate cells. You decide how many pictures to insert and where to insert them - in a column or row. Also, you choose what size the images should be: pictures adjusted to cells, cells resized to accommodate images or any specific size that you set.
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?
Say you have many images in a folder and you want to insert all these images in your excel work book, one image in one cell. You can do it manually, insert and resize the image and drag it to the particular cell, but think of a scenario where you have more than 100 images or may be more. I am sure you don’t want to do it manually. IF you are looking for solutions for problems like this, this is the tutorial for you.
This tutorial will teach you about how to insert multiple images from a folder into your excel.
With the following VBA code, you can insert multiple pictures into Excel file cell by cell.
1. Select a 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.
====@@@Click Below Link to Download Multiple Photo VBA@@@====
Link 1: drive.google.c...
Link 2: mega.nz/file/e...
======================================================
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
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, and select the folder which contains the pictures that you want to insert. Then specify the pictures as you need. And click the Open button.
5. And all the selected pictures have been imported into your selection based on the cell size.
This is the video to insert multiple pictures into excel with VBA code
LIKE | COMMENT | SHARE | SUBSCRIBE
अगर आप को यह विडियो पसंद आया तो कृपया लाइक करें और अगर आप कुछ कहना या पूछना चाहते है तो कृपया नीचे दिए गए कमेंट बॉक्स में लिखें !
ComTutor हिन्दी युटूब चैनल है जो आपको इन्टरनेट, कम्प्यूटर, मोबाईल और नयी टेकनालाजी के बारे में हिन्दी में जानकारी देता है।
आप हमारे चैनल को Subscribe करे।
/ @comtutor
फेसबुक पर पसंद करने के लिए क्लिक करें
/ comtutor4u
ट्विटर पर फॉलो करने के लिए क्लिक करे
/ comtutor4u