Cambiar tamaño de una imagen

Con esta rutina, inserto la foto de un empleado, según su clave que ingrese

'Inserta Foto
ruta = "C:\Users\gral\Documents\DAA\Reloj\"
carnet = Range("D11")
ruta2 = (ruta & carnet & ".jpeg")
Range("G15").Select
ActiveSheet.Pictures.Insert (ruta2)

Las fotos son de diferentes tamaños

La pregunta es como controlo o cambio el tamaño de la imagen, ¿para ajustarla al espacio que tengo en el formato de mi hoja?