Automatically inserting images using MS-Excel

Question

Was there any way to insert a set of images automatically. if possible comment below..... Thanks in advance :)

Thuyavan Ganesan · Answer

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

Muthu Kumar · Answer

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 D · Answer

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

Shweta Lodha · Answer

If you want to insert images into excel, please use Microsoft.Office.Interop. Excel

Automatically inserting images using MS-Excel

Answers (4)