Guardar hoja como imagen

Hola, podrías ayudarme con una macro que guarde la hoja activa de un libro como imagen en una carpeta específica y luego cierre el libro, pero que sea en formato png ya que en otros formatos como jpg pesa mucho. Gracias por tu respuesta.

Saludos