Macro para insertar imagen en una celda a partir de un texto?
Me gustaría saber si hay alguna macro que al escribir un texto en una celda me inserte una imagen que tengo dentro del mismo libro en esa misma celda, si no fuera posible pues a partir de imagenes en una carpeta. Y que esta macro afecte a toda una columna.
Un forma sencilla es con el código:
ActiveSheet. Pictures.Insert(“Carpeta & imagen”).Select
En donde tendrás que cambiar "Carpeta" por la ruta donde esten las imagenes y "Imagen" por la celda donde esté el texto (que deberá coincidir con el nombre de la imagen sin olvidar la extensión)
ActiveSheet. Pictures.Insert("C:\Users\Ismael\Dropbox\Ismael\imagenes_&_E12:E712").Select
Así es como lo he puesto pero no me deja ejecutar la macro.
¿En qué me estoy equivocando?
Gracias por responder tan rápido.
Este código, seria para nombre de la imagen en la celda A1 SIN extensión e insertar la imagen en la celda A2
Sub insertpicture()
Dim imagen As String
imagen = Range("A1")
Range("A2").Select
ActiveSheet.Pictures.Insert("C:\Users\Ismael\Dropbox\Ismael\imagenes\" & imagen & ".jpg").Select
End Sub
Sub insertpicture()
Dim imagen As String
imagen = Range("E12:E712")
Range("E12:E712").Select
ActiveSheet.Pictures.Insert("C:\Users\Ismael\Dropbox\Ismael\imagenes\" & fútbol & ".png").Select
End Sub
Al escribir los nombres de las imágenes sin extensión en ese rango de celdas no se ejecuta automáticamente el código.
Este error me aparece cuando lo ejecuto manualmente.
¿Quieres insertar una imagen o 700 imágenes?
¿La variable fútbol que es?
