comment compresser la taille des images via vba

[jf27]

Bonjour le forum,


je saisie des picture via usf que je copie ensuite dans une feuille excel

je voudrai avant de sauvegarder la feuille excel, faire en vba, l'équivalent de la commande compresser toutes les images de la barre d'outil image, pour réduire la taille du fichier généré


Est ce quelqu'un sait coder ca ?


Merci par avance
@+
jf 27

 

[Guest]

Re : comment compresser la taille des images via vba

bonjour Jf,

La seule chose que j'ai testée est la suivante qui ne fait qu'excecuter le bouton de la barre d'outil image:

Sub AfficherBoiteDialogueCompression()
    Dim ctl As CommandBarControl
    On Error Resume Next
    Set ctl = Application.CommandBars("Picture").FindControl(ID:=6382)
    If Not ctl Is Nothing Then ctl.Execute
End Sub

-> ouverture de la boîte de dialogue compression des images

A+

 

[jf27]

Re : comment compresser la taille des images via vba

merci hasco

les barbatruc sont vraiment trop fort !

Ca me va bien, il manque juste le click sur OK !

@+

 

[Guest]

Re : comment compresser la taille des images via vba

Re,

il manque juste le click sur OK !

A ma connaissance, c'est pas possible à ma connaissance même avec Application.SendKeys

A+