1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Excel - Compression d'images

Résolu
Signaler
Messages postés
7
Date d'inscription
mercredi 19 octobre 2011
Statut
Membre
Dernière intervention
27 septembre 2012
 -
Messages postés
7
Date d'inscription
mercredi 19 octobre 2011
Statut
Membre
Dernière intervention
27 septembre 2012
 -
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

Réponse 1 / 2
Messages postés
34662
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 janvier 2022
 358
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
Réponse 2 / 2
Messages postés
7
Date d'inscription
mercredi 19 octobre 2011
Statut
Membre
Dernière intervention
27 septembre 2012
... 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...
Répondre Posez votre question