compactar (redimensionar) fotos

Ola galera, estou aqui mais uma vez para pedir socorro:
existe uma maneira de compactar fotos através de código vba?
tenho um sistema de imobiliária e preciso enviar fotos por e-Mail, como todos sabem hoje em dia as fotos chegam a 6000 kb cada, aí da pra imaginar o tamanho desse e-Mail, ou se não tiver um código vba para isso algum programa que rode oculto sem o usuário interagir com ele, mais uma vez agradeço.

é muito boa sua sugestão amigo Norberto Rost, inclusive no sistema as fotos são linkadas em um servidor, nesse servidor as fotos são salvas como jpg e os seus tamanhos são em média de 4500 a 6500 kb quando eu uso um redimensionador manual elas ficam em média com 70kb entao a taxa é muito alta e compensa fazer isso, pois não posso mandar um email para o cliente com 10 fotos desse tamanho, entende? agradeço muito sua sugestão, e tb alem do e-Mail eu queria compacta-las na pasta tb. obrigado

Bom dia Norberto, qdo me refiro a redimensionar é reduzir o tamanho mesmo, tipo imagem com dimensões de 4000 x 2076 reduzir para 320 x 480 formato para internet, e não zipar, realmente, vc tem razão a compactação de fotos não diminui significativamente o tamanho. mas agradeço a ajuda.

Preciso redimensionar fotos (fotos muito grandes tipo dim: 4000x2072 e passar para 320x480) tudo isso sem usar programas externos. será que dá pra fazer isso no access??
agradeço.

Experimente assim a ver se dá:

Dim strPath As String
Dim Picture As Object
strPath = "C:\Caminho da foto"
Set Picture = strPath
Picture.LockAspectRatio = msoTrue
Picture.Width = 157
Picture.Height = 138

Amigo Rui vou testar com certeza, se der certo retorno para concluir, obrigado.