Compresser en masse les images d une feuille

Bonjour

j aimerai compresser au maximum toutes les images de tous les fichiers d un même répertoire sans avoir a les ouvrir un a un, cliquer sur compresse etc...

Idéalement tout faire en une seule fois ou sinon y a t il un raccourci pour accéder directement a la fenêtre de compression?

D'avance merci

Bonjour à tous,

Pourquoi vouloir faire ça avec excel alors que tu as tout un tas d'outils spécialisés qui font ça très bien ?

Light Image Resizer par exemple, mais il y en a pléthore.

eric

Bonjour eric,

Jai des feuilles fichier exel avec des photos dedans, elles font 4 mo en général, je dois les réduire a 700ko pour passer dans un robot. jusque à présent je les ouvrais un a un et compressais. j aimerai aller plus vite dans cette tache.

re,

à tester,

il ne reste plus qu'à appuyer sur Enter

Sub Compression()
    Dim ctl As CommandBarControl
    ActiveSheet.DrawingObjects.Select
    On Error Resume Next
    Set ctl = Application.CommandBars("Picture").FindControl(ID:=6382)
    If Not ctl Is Nothing Then
        With ctl
        SendKeys "%{W}", True
        SendKeys "TAB", True
        SendKeys "TAB", True
        SendKeys "TAB", True
        .Execute
        End With
    End If
End Sub