Excel Macro VBA para insertar cientos de imágenes desde una carpeta

*Mediante esta macro puede insertar varias imagenes desde un rango de celdas


Sub MyExcelTools_Macro_Insert_Images_In_Excel()

'Macro para insertar imágenes  a partir del valor de una celda
'Autor: MyExceltools.com
'Ver aplicación con la funcionalidad: MyExcelTools.com See more - MyExcelTools
'Go to http://www.myexceltools.com/pages_spreadsheet_images/view_more_spreadsheet_image.htm

'Establecemos las variables necesarias
Dim Ruta As String, celda As Range

'guardamos la ruta del libro
Ruta = ThisWorkbook.Path
   
'Quitar la actualización de pantalla
Application.ScreenUpdating = False

'Seteamos el rango con los nombres de las imagenes
Set Range_With_Images = Range("A2:A1000")

'Recuperar el valor de cada celda para insertar imagen a imagen
For Each celda In Range_With_Images
    ActiveSheet.Pictures.Insert (Ruta & "\MyExcelTools_Pictures_folder\" & celda.Value & ".GIF")
Next

'devolver la actualización de pantalla
Application.ScreenUpdating = True

End Sub