Insertar imágenes en celdas de Excel

Os dejo un truco para Excel por si os pasa como a nuestros compañeros de Contraseña PC. Si tenéis la necesidad de incrustar imágenes en Excel de manera automática.

Tenéis que poner un script sacado de aquí:

La idea es que si queréis incrustar una imagen (\home.gif) en la celda G10:

ActiveSheet.Pictures.Insert(ThisWorkbook.Path & “\home.gif”).Select
‘se obtiene la ubicación de la celda G10
tope = Range(“G10”).Top
izq = Range(“G10”).Left
alto = Range(“G10”).Height
ancho = Range(“G10”).Width
‘se ubica la imagen sobre la celda G10
Selection.ShapeRange.Top = tope
Selection.ShapeRange.Left = izq
Selection.ShapeRange.Height = alto
Selection.ShapeRange.Width = ancho

Eso lo podéis hacer con cada imagen o celda o meterlo en un script o programarlo.