He estado al acecho por un tiempo y lo encontré muy útil, ¡así que gracias por la ayuda ya!

Estoy tratando de escribir una macro para incrustar imágenes en una hoja de trabajo a partir de archivos individuales y cambiar su tamaño, mientras mantengo intacta la resolución completa de la imagen en caso de que deba ampliarse nuevamente. Primero de todo lo intenté:

ActiveSheet.Pictures.Insert(imageName).Select
With Selection.ShapeRange
    .Height = 100
    .Width = 100
End With

Esto esencialmente inserta un enlace a la imagen y si el archivo de imagen se elimina o el archivo de Excel se mueve a otra computadora, el enlace se rompería. Luego probé:

ActiveSheet.Shapes.AddPicture Filename:=imageName, _
    linktofile:=msoFalse, _
    savewithdocument:=msoCTrue, _
    Width:=100, _
    Height:=100

Este código también funciona, pero la imagen cambia de tamaño a 100 * 100 píxeles antes de la inserción, por lo que se pierde la resolución original del archivo.

¿Hay alguna forma de insertar archivos de imagen yentonces reducirlos en tamaño, para que se conserve la resolución original?

Muchas gracias Adam.