Macro para insertar control Imagen ActiveX en Excel

Necesito una macro para excel para:

1. Crear un control Imagen ActiveX (en la celda A1)

2. En la celda B1 tengo la ruta a la imagen que quiero insertar en el control Imagen ActiveX. P.ej. C:\Imagenes\Imagen1.jpg. Copio esta dirección

3. Voy al control Imagen ActiveX que acabo de crear, voy a propiedades, y en Picture pego la ruta que acabo de copiar.

4. Bajo a la celda A2 y termino.

He hecho una macro pero no me funciona y no se por qué.

Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=0, Width:=60, Height:=60). _
Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Copy
ActiveSheet.Shapes("Image1").Select
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Si alguien puede ayudarme se lo agradeceré mucho.

Añade tu respuesta

Haz clic para o