Para Dante.. Copiar, pegar y guardar rango como imagen utilizando paint

Hola Dante, me has ayudado en otras oportunidades.. He creado una macro que guarda un rango de celdas como imagen utilizando el paint, pero sé que puedes hacerlo más sencillo y efectivo. El nuevo archivo generado debe guardarse en formato PNG cuyo nombre será el valor que se encuentra en la celda A1 de la hoja activa, si el archivo existe debe sobreescribirlo, además no debe mostrarse el proceso de abrir, copiar, pegar, etc en el paint. Al final debe cerrarse el libro excel y el paint.

Quiero que sea utilizando el Paint y no de otra manera ya que me ofrece una mejor resolución en los gráficos que deseo mostrar.

Este es el código que hice:

Sub Guarda_Paint()
Range("A2:D7").Copy
Shell "mspaint.exe", 1
Application.Wait Now + TimeValue("0:00:01")
SendKeys "^v"
ThisWorkbook.Activate
Application.Wait Now + TimeValue("0:00:01")
Range("A1").Copy
SendKeys "^g"
SendKeys "^v"
SendKeys ".png"
SendKeys "{Enter}"
SendKeys "%{F4}"
End Sub

Por favor tu ayuda.

Gracias