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.

 

Os recomendamos los siguientes productos relacionados con la informática:

 

Toshiba Canvio Flex 4TB HDD 5000MB/s Canvio Flex USB 3.2 Gen1 Plata Compacto

(43511)

135,99 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

DDKJ Ventilador de Cuello con Aire Acondicionado 5500mAh,Aire Acondicionado Cuello 5 Velocidad,Neck Fan USB Rechargeable 3 Niveles de Frío,Mini Ventilador Portatil para Interior/Exterior-Azul

(40571)

34,18 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

HP 305 Pack de 2 Cartouches dEncre Noire et Trois Couleurs Authentiques 6ZD17AE

(45562292)

23,99 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

WD 5TB My Passport, HDD portátil, USB 3.0, con software para gestión de dispositivos, copia de seguridad y protección de contraseñas Funciona con PC, Xbox y Playstation, Negro

(45597288)

116,30 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Amazon Basics Tarjeta MicroSDXC de 128 GB con Adaptador, Velocidad de Lectura de hasta 200 MB/s, Paquete de 1

(465117063)

14,32 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Cargador USB C, 45W 4 Puerto Enchufe USBC para iPhone 16 15 Plus 14 13 12 11 Pro Max SE 2020 XS X 8 iPad Samsung, Movil Carga Rápido USBC Cargador Multiple Cabezal Adaptador de Pared Corriente Romalux

(425791)

9,99 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Gigabyte AORUS GeForce RTX 5060 Ti Elite 16G Tarjeta Gráfica – 16 GB GDDR7, 128 bits, PCI-E 5.0, 2722 MHz Frecuencia del núcleo, 3 x DisplayPort, 1 x HDMI, GV-N506TAORUS E-16GD

(4754)

531,85 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

ARCTIC M2 Pro - Disipador térmico para SSD M.2 2280, con Almohadillas térmicas ARCTIC TP-3, Compatible con PC y PS5, para SSD de una y Dos Caras - Negro

(445503)

5,79 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Philips Usb 2.0 Palillo De 32 Gb, Nieve Edición, Blanco, Gris

(44525554)

4,99 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Valkyrie Jarn 240 ARGB (240mm, Blanco)

167,31 € (a partir de 19 junio, 2025 20:16 GMT +02:00 - Más informaciónProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)