Optimising Picture Size with Compression

[Kim]

Through VB how can I optimise the compression of pictures in my
presentations as you can do in Word?
Assume I want to open the document and then optimise all the pictures in the
document. Thanks in advance