Request: Macro to compress Pictures (PPI) | Application.CommandBars.FindControl(ID:=6382) | Excel

[DrHacker]

After hours of search, I decide to come with the experts and ask you!

I need a Macro that Compress (PPI's / DPI's Not Dimensions) for All Excel Pictures at all the workbook.

As far as I know, the ID code for that is 6382. But I can’t find a way to program it and work.

As well, it needs to work at different versions of Office (x86 / x64) 2013, 2016 & 365 (all variants) if posible

There is some one that did the trick already and can share?

 

[Rijnsent]

Hi DrHacker,
I'm not sure about the different excel versions, but you could try this bit of code: Compress pictures using macro in Word or Compress all images in Excel workbook via VBA
E.g.:

Sub CompressPics()
    With Application.CommandBars.FindControl(ID:=6382)
        SendKeys "%A%W{Enter}"
        .Execute
    End With
End Sub

Cheers,
Koen

 

[DrHacker]

Unfortunatelly doesnt work, I tried yours and add Word Module as part of the code but same result.

Execute mark in Yellow, any suggestion?

(Share Code - Your support Help code)

(New - Adding Word Module)

 

[Worf]

Do you get an error message?

 

[DrHacker]

Unfortunatelly, no.

 

[Rijnsent]

So can you describe in a bit more detail what you did, what happened and what you expected to happen? (How do you run your code, just pressing F5 or step-by-step? How do you test if pictures have been shrunk, etc.)
Cheers,
Koen

 

[DrHacker]

So can you describe in a bit more detail what you did, what happened and what you expected to happen? (How do you run your code, just pressing F5 or step-by-step? How do you test if pictures have been shrunk, etc.)
Cheers,
Koen

Using step by step (F8) i got an error code (Attached)

I try running with F5 and / or with macro panel and same yellow mark.

 

[DrHacker]

Using step by step (F8) i got an error code (Attached)

I try running with F5 and / or with macro panel and same yellow mark.

As well, this are the references that im using as part of VBA code (image)

 

[DrHacker]

Thanks guys!

I can do it changing the code and addint a sleep before sendkeys.

here is the solution

        Application.CommandBars.ExecuteMso "PicturesCompress"
                        
        Sleep 500
        SendKeys "%A%W{Enter}"

 

[james_martin001]

Can this work in Word? I know this is an Excel Forum... I have Office 365. I don't know if this is impossible, or I am doing something wrong. Need for work and a suite of Macros I am finalising.