Using VBA to compress pictures

[TPortsmouth]

Hello,

I would like to create a VBA to automate the "Compress Pictures" in a batch.

I've been searching the forum and realize that the Excel 2016 version do not have such code exist, however, this can be done by some "Keyboard alt key" recording. Unfortunately, I can 't find any solution for Excel 2016, can you help to suggest the coding to achieve below?

1. Open the Compress Pictures dialog.
2. Uncheck Apply only to this picture.
3. Select the desired Resolution.
4. Press OK.

Thanks for your help.

TPortsmouth