Escanear documento desde excel, ponerle nombre y guardarlo como jpg

Hola,
quiero poner un botón en excel que escanee un documento, automaticamente guardarlo en un archivo y guarde la ruta en una celda
De momento solo he encontrado como escanear un documento con esto:

CÓDIGO:

Sub Insertar_desde_escaner()  CommandBars.FindControl(id:=1764).ExecuteEnd Sub

pero me muestra lo encaneado en la hoja del libro de Excel, cosa que no quiero.
¿alguna idea?

Saludos,

C.Fenix