Excel - Compression d'images

Résolu
djcoach Messages postés 7 Date d'inscription mercredi 19 octobre 2011 Statut Membre Dernière intervention 27 septembre 2012 - 22 déc. 2011 à 15:36
djcoach Messages postés 7 Date d'inscription mercredi 19 octobre 2011 Statut Membre Dernière intervention 27 septembre 2012 - 24 déc. 2011 à 01:00
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.

2 réponses

jordane45 Messages postés 36861 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 janvier 2023 341
23 déc. 2011 à 09:18
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
3
djcoach Messages postés 7 Date d'inscription mercredi 19 octobre 2011 Statut Membre Dernière intervention 27 septembre 2012
24 déc. 2011 à 01:00
... 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...
0
Rejoignez-nous