Vincular link de este código con celda

Tengo este código para insertar una imagenen determinado lugar, me funciona perfectamente pero como podría hacer que la imagen variara dependiendo de el link que ponga en una celda ? Para asi no tener que ir a modificar la macro cada vez que quiero cambiarla. Muchas gracias de antemano.
Sheets("PDF").Select Range("A1").Select ActiveSheet.Pictures.Insert("H:\Fatzer_AG_Drahtseilfabrik_Logo.jpg").Select Selection.ShapeRange.IncrementLeft 308.25 Selection.ShapeRange.IncrementTop 163.5 Selection.ShapeRange.ScaleWidth 0.8300209897, msoFalse, msoScaleFromBottomRight Selection.ShapeRange.ScaleHeight 0.8300209205, msoFalse, _ msoScaleFromBottomRight

1 Respuesta

Respuesta
1

Cambia esta línea

ActiveSheet.Pictures.Insert("H:\Fatzer_AG_Drahtseilfabrik_Logo.jpg").Select

Por esta

ActiveSheet.Pictures.Insert(range("D5")).Select

Cambia el D5 por la celda donde tienes el link

Saludos. Dam

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas