Macro para cambiar tamaño y resolucion a una imagen

Hola amigos, por un trabajo que realizo me surge la siguiente necesidad, ¿Es posible modificar el tamaño (en kilobytes) o en la resolucion de una imagen jpg, para que por ejemplo si pesa un megabayte y no quiero que sea tan pesada convertirla a 500 kilobytes.

espero puedan ayudarme.