Automatically inserting images using MS-Excel

Aruljothy Sundaramoorthy

7y853Microsoft Office

Was there any way to insert a set of images automatically. if possible comment below.....

Thanks in advance :)

4 Replies

Know the answer? Post it — somebody with the same question will find it here.

Muthu Kumar7y ago
Hi Aruljothi,

Here is an working example for you,

https://answers.microsoft.com/en-us/office/forum/office_2007-excel/inserting-images-automatically-into-excel-2007/f460c5e0-2cab-4b8f-b8f6-006f6fb60ffd
Sub InsertPictures()
  'change this to the full path to your picture files
  Const pathToPictures = "C:\user\folder\pictures\"
  Dim listOfFiles As Range
  Dim anyFileEntry As Range
  Dim picFileName As String
  Dim startingPoint As Range

  Set startingPoint = ActiveSheet.Selection
  Set listOfFiles = ActiveSheet.Range("A2:" & _
   ActiveSheet.Range("A" & Rows.Count).End(xlUp).Address)
  Application.ScreenUpdating = False
  For Each anyFileEntry In listOfFiles
    'change .jpg to whatever graphic file type you're using
    ' or delete the { & ".jpg" } portion if those files have no
    ' file type indicator.
    picFileName = pathToPictures & anyFileEntry & ".jpg"
    'code to insert the graphic here, and you can reference
    'the same-row cell in column B using .Offset
    anyFileEntry.Offset(0, 1).Select
    'or you can use this command format if you like;
    'this would insert in column D on same row
    'ActiveSheet.Range("D" & anyFileEntry.Row).Select

    'this does not do any resizing, so pictures may
    'overlap unless your sheet is already set up to
    'display them the way you want.
    ActiveSheet.Pictures.Insert(picFileName).Select
  Next
  Set listOfFiles = Nothing
  startingPoint.Select
  Set startingPoint = Nothing
End Sub
Leon D7y ago
You can insert images to excel automatically using code.
using Spire.Xls;

namespace InsertImage
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create Workbook
            Workbook workbook = new Workbook();
            Worksheet sheet = workbook.Worksheets[0];

            //Insert Image
            sheet.Pictures.Add(1, 1, @"E:\work\sample.jpg");

            //Save and Launch
            workbook.SaveToFile("ExcelImage.xlsx", ExcelVersion.Version2010);
        }
    }
}
For more info, check this article:
https://www.e-iceblue.com/Tutorials/Spire.XLS/Spire.XLS-Program-Guide/NET-Excel-Image-Insert-Image-in-Excel-with-C-VB.NET.html
Thuyavan Ganesan7y ago
Hi,

There is no out of the box automatic feature to inserting images is available in excel but you can get this things done using the code. I personally used this code.
Sub InsertPictures()
'change this to the full path to your picture files
Const pathToPictures = "C:\user\folder\pictures\"
Dim listOfFiles As Range
Dim anyFileEntry As Range
Dim picFileName As String
Dim startingPoint As Range
Set startingPoint = ActiveSheet.Selection
Set listOfFiles = ActiveSheet.Range("A2:" & _
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Address)
Application.ScreenUpdating = False
For Each anyFileEntry In listOfFiles
'change .jpg to whatever graphic file type you're using
' or delete the { & ".jpg" } portion if those files have no
' file type indicator.
picFileName = pathToPictures & anyFileEntry & ".jpg"
'code to insert the graphic here, and you can reference
'the same-row cell in column B using .Offset
anyFileEntry.Offset(0, 1).Select
'or you can use this command format if you like;
'this would insert in column D on same row
'ActiveSheet.Range("D" & anyFileEntry.Row).Select
'this does not do any resizing, so pictures may
'overlap unless your sheet is already set up to
'display them the way you want.
ActiveSheet.Pictures.Insert(picFileName).Select
Next
Set listOfFiles = Nothing
startingPoint.Select
Set startingPoint = Nothing
End Sub

Please refer this thread below for mre info.
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_other/inserting-images-automatically-into-excel-2007/f460c5e0-2cab-4b8f-b8f6-006f6fb60ffd
Shweta Lodha7y ago
If you want to insert images into excel, please use Microsoft.Office.Interop.Excel