Comment mettre à jour l'affichage d'un objet Image ?
Bonjour,
Je travaille sur un programme qui intervient sur un fichier Paint en Bmp 24 bits.
A chaque fois que je clique sur un bouton de mon Userform je voudrais voir le résultat de mon action sur le fichier Paint.
Pour cela j'ai créé un objet Image nommé Visuel dont j'ai défini au moment de sa création (avec la caractéristique Visuel.Image) que le fichier affiché était le fichier Paint.
Quand le Userform s'affiche, l'objet Visuel affiche bien le fichier Paint.
A chaque modification de mon fichier Paint par mon programme, je souhaiterais mettre à jour l'affichage de Visuel.
J'ai essayé Visuel.Image = "Adresse du fichier Paint..." mais cela ne fonctionne pas !
Quelle syntaxe faut-il utiliser ?
Si cela n'est pas possible avec un objet Image, quel type d'objet dois-utiliser ?
Un grand merci à tous.
Bonsoir,
avez-vous essayé le Me.Repaint qui demande de "redessiner" le USF, donc les objet qu'il contient sont remis à jour, je pense.
@ bientôt
LouReeD
Bonjour LouReeD
Excellente idée, mais cela n'a aucun effet.
Entre temps j'ai opté pour une autre solution, j'affiche le fichier Paint sur la feuille de calcul et non sur le Userform. Cela permet de l'effacer puis de le réafficher facilement afin de le mettre à jour.
Pour l'affichage :
ActiveSheet.Pictures.Insert("C:\...nom du fichier").Select
Selection.Name="Fichier_Paint"
Pour l'effaçage :
ActiveSheet.Shapes.Range(Array("Fichier_Paint")).Delete
Encore merci !
Bonjour, et merci pour le retour qui pourra servir à d'autre !
Sinon un Array de shape qui ne contient qu'une donnée peut-être remplacé par ceci :
ActiveSheet.Shapes.("Fichier_Paint").Delete
@ bientôt
LouReeD
RECAPITULATIF :
Entre temps j'ai opté pour une autre solution, j'affiche le fichier Paint sur la feuille de calcul et non sur le Userform. Cela permet de l'effacer puis de le réafficher facilement afin de le mettre à jour.
Pour l'affichage :
- ActiveSheet.Pictures.Insert("C:\...nom du fichier").Select
- Selection.Name="Fichier_Paint"
Pour l'effaçage :
- ActiveSheet.Shapes.("Fichier_Paint").Delete