Discussion :

[paoloadv]

Bonjour,
J'ai réalisé sous VBA Excel 2010 une interface (via Userform), qui propose de charger des images en provenance de son disque dur ou bien du Web (dans mon cas je charge des icônes de du site de Google-Earth).
Cela fonctionne à peu prés...
Quelque-soit le format, on peut, en cliquant sur le CommandButton bleu de la première ligne du Userform, charger n'importe quelle image (jpg, gif, png).
Si l'image est de type Gif animée, elle s'affiche figée dans l'élément Image, et animée dans l'élément WebBrowser, après avoir été mise aux dimensions des blocs.
Si l'image est de type PNG (comme celles du site de Google-Earth que je récupère, grâce au ComboBox), il faut la convertir en JPG avant de pouvoir l'afficher dans l'élément Image du Userform. Ce que je fais systématiquement.
Dans tous les cas, les deux éléments Image et WebBrowser restitue l'image sélectionnée.
Le problème que je rencontre est que l'affichage semble bloqué suite au chargement de l'image dans l'élément Image dès que l'on fait une sélection d'une URL de l'image à partir de la Combobox. Si je déplace la fenêtre du Userform, cela laisse une "trainée" et la liste de Combobox reste visuellement déployée en apparence (mais pas fonctionnellement).
De plus j'ai un soucis de mise au bon format de l'image à afficher. Je souhaite qu'elle occupe toute la surface de chaque élément Image et WebBrowser. Cela semble fonctionner pour l'élément Image mais une bande blanche verticale et horizontale sur le côté droit et inférieur de l'élément WebBrowser (de quelques pixels) reste, imposant une taille réduite à l'affichage de l'image.
Quelques regards avisés me seraient sans doute d'un grand secours...
À vos claviers ! :^)

PS: je joins directement mon fichier, car code un peu long à coller ici... J'ai déposé aussi 2 photos écran pour montrer le symptôme observé.
Je joins également 1 image utile au code (InvisibleSector.png) pour l'initialisation de l'affichage des éléments graphiques.

[paoloadv]

Bonjour (à moi même )
Alors, j'ai trouvé la solution.
En commentant la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call ImporteImageEnUserForm(Me.ImageLogoSecteur, Me.TextBoxFichierLogoEtiquette)

dans la procédure évènementielle CommandButtonBrowserLogoEtiquette_Click() de l'UserForm1, on s’aperçoit que l'affichage n'étant plus activé sur l'élément Image lors d'une sélection d'icône depuis la Combobox, il n'y a pas de problème de "gèle" de l'Useform affiché ! C'est donc que le problème se situe dans l'appel à ImporteImageEnUserForm.
En effet, cette procédure fait appel à ImportPngWebEnUserForm dans le module M_ImagesIcones_v4_1, dans lequel à un moment donné je cache la feuille "feuille image" générée temporairement pour le transfert et la conversion de l'image icône png en jpg. Or c'est ce mode caché (

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuilleImage.Visible = xlSheetVeryHidden

) qui fout la grouille ! Du coup, il suffit soit d'effacer cette feuille en fin de traitement, soit de réactiver la feuille active initiale, et il n'y aura plus de soucis.
Dans mon cas j'ai choisi de faire les deux. Cela évite d'avoir des feuilles cachées oubliées même si cela nécessite de la régénérer à chaque nouveau choix dans la Combobox.
De plus pour plus de cohérence dans le code, j'ai déclaré dans la procédure Reinit_WebBrowserImageGif du module M_GereWebBrowsers, le paramètre WB est passé en référence et de type WebBrowser au lieu d'un type Object.
Cela donne le résultat que vous pouvez télécharger en pièce jointe de cette réponse.
@+ et Merci qui... ^^

[patricktoulon]

bonsoir
vu ta capture d'écran c'est plus un soucis de mémoire graphique qu'autre chose quelque part dans ton code il doit y avoir quelque chose qui fait tourner le moulin a plein régime

d'autant plus que utiliser un webbrowser ou un control image est absurde
puisque tu utilise un webbrowser utilise le pour tout les format

colle ca dans un userform avec un webbrowser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Activate()
URL = "http://cdn-gulli.ladmedia.fr/var/jeunesse/storage/images/canalj/la-tele/dessins-animes/toto/images/les-personnages/toto/4131722-1-fre-FR/Toto.jpg"
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write "<img src=""" & URL & """></img>"
End Sub

l'image est affichées instantanément au démarrage de l'usf il n'y a pas de surcharge mémoire

[patricktoulon]

Bonjour
j'etais vraiment curieux de savoir ce qui pouvait te foutre le boxon dans la mémoire

a ben la je suis servi !!!!! bien que chez moi je n'ai eu de soucis en regardant les codes et innombrable modules que tu a pour afficher une image d'un type ou d'un autre j'ai compris

tout d'abors tu utilise WIA pour convertir un png en jpeg c'est une librairie très lourde
ensuite j'ai regardé les autres modules pioufffff tu veux aller ou avec ca (sur la lune )

tu trouvera dans les contributions un peu vielle je te l'accorde il faudra que tu cherche une fonction avec une requête et adob pour télécharger une image du net (résultat quasi instantané)

tes modules avec apis je n'en parlerais pas je me demande bien ce qui foutent la

bref un module avec au plus 50 lignes( et je suis large ) ferait la même chose

dis moi comment tu obtiens simplement les url des images c'est tellement le foutoir dans ce code que j'ai du mal a cerné ce que qui fait quoi

Edit:bon j'ai trouver tes url !!

tu devrais après avoir vu dans le debug les mètres en commentaires tout ces debug.print ils pompes énormément puisque tu connais les urls car c'est toi qui créé les array j'aurais fait plus simple pour commencer que par la déjà