Excel - Compression d'imagesRésolu

Question

Bonjour à tous,

par vba, j'insère une image, la redimentionne et la positionne.
Puis je la compresse à la définition "Site web/écran" :
'   __________________________________________
'   redimentionnement de l'image
    CommandBars("Picture").FindControl(ID:=6382).Execute
    SendKeys "{w}"
    SendKeys "{enter}"
'   ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Mais cette procédure affiche la boite de dialogue de redimentionnement d'image,
et attend une réponse.
J'aimerais que cette manipulation soit "silencieuse" et travaille sans le montrer
et sans poser de question à l'utilisateur.
Mais pour ça, je sèche lamentablement.

Merci d'avance à qui pourrait me mettre sur la voie.

jordane45 · Accepted Answer

Bonjour,

Essayes en mettant (avant ta commande )
Application.DisplayAlerts = False

puis penses à le remettre à "true" après.


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

djcoach · Answer

... hélas, j'avais déjà essayé, la boite de dialogue s'affiche, je la valide 1x et elle clignotte tant qu'il y a des images à insérer puis elle se ferme avec la fin de la procédure.
DisplayAlerts n'est pas vraiment efficace sur ce coup là.

Mais il y a peut être moyen de passer la commande directement sans ouvrir la boite de dialogue. Il ne me manque que la syntaxe...

Excel - Compression d'images

2 réponses

Votre réponse