Ayuda necesito insertar fotos de un tamaño determinado con macros

Necesito insertar imágenes en un informe a través de un botón que he creado el cual lo que hace básicamente es abrir el explorador de archivos para poder escoger la imagen, lo que necesito es que esta imagen se inserte de un tamaño determinado independiente del tamaño de las celdas, ¿existe alguna macro?

la macro que tengo en mi botón es la siguiente:

Sub insertar()
ActiveSheet.Pictures.Insert (Application.GetOpenFilename)
End Sub