Buenos dias,
Tu consejo, realmente me sirvio, le hice unos ajustes al codigo que me genero la grabadora de macros, este es el codigo:
Private Sub CommandButton1_Click()
Hoja1.Activate
Hoja1.Range("IMAGEN").Select
'en esta celda esta el nombre de la imagen.jpg
IMAGEN = ActiveCell.Text
Hoja1.Range("MARCO").Select
'en esta celda se inserta la imagen
ActiveSheet.Pictures.Insert( _
"C:\Mis documentos\Mis imágenes\" & IMAGEN _
).Select
' y el siguente ajusta el tamaño de la imagen
Selection.ShapeRange.ScaleWidth 0.09, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.15, msoFalse, msoScaleFromTopLeft
End Sub
Gracias epa2 y hasta la proxima.
