Inserir imagem como JPG no excel

[Boudais]

Olá, bom dia

 

Estou com um problema numa planilha onde tenho que inserir fotos.

Para que as fotos fiquem sempre no tamanho correto eu criei uma VBA.

O problema é que se a foto for grande o arquivo salvo também será grande

Gostaria de saber é possível já inserir a foto como JPG para que o arquivo ficasse pequeno.

insert pct.xlsx

[Boudais]

Consegui uma solução simples.

Incluí as seguintes linhas na macro:

.

.

.

.TextureTile = msoFalse

Application.SendKeys "%a~"

Application.ComandBars.ExecuteMso "PicturesCompress"

End With

.

.

.