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.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Resumen de nuestra Política de Privacidad

  • Responsable: SmythSys IT Consulting SLNE.
  • Finalidad: Gestionar y moderar los comentarios.
  • Legitimación: Necesitas dar tu consentimiento para publicar un comentario.
  • Destinatarios: Tus datos se alojan en los servidores de OVH.
  • Derechos: Tienes derecho a acceder, rectificar, limitar y suprimir los datos en la dirección del responsable (en nuestra política de privacidad).

Scroll al inicio