XL 2013 Insérer dans un USF une image qui est dans une feuille

[erics83]

Bonjour,

Je cherche à insérer dans un userform une image. J'ai vu certains tutos ou exemples, mais impossible de le reproduire....ou alors, j'ai fait une fausse manip que je ne comprends pas...ou j'ai mal "reproduit" un code....et je n'ai pas compris comment JB manipulait les contrôle image dans son fichier "controle image.xls), donc...suis un peu "perdu", car j'ai beaucoup d'exemple avec des images enregistrées dans le disk dur, mais pas d'exemple (ou pas trouvé) sur des images dans le même fichier...
Pour faire simple (=une fois que j'aurais compris le code, je pourrais le reproduire), lorsque l'USF s'ouvre, il doit afficher l'image qui est en Feuil2....

Merci pour votre aide,

 

[Dudu2]

a quoi te sert de calculer le ratio? une capture de plage fait la même dimension que l'original non ?

Le calcul du ratio en fonction des arguments Width et Height permet de dimensionner l'image car la capture de la plage peut être représentée grossie ou réduite.

 

[Dudu2]

d'autre part je vois que tu paste d'abords sur feuille (c'est inutile et je peux t'expliquer pourquoi)

Ok, explique, si je peux gagner sur cette étape.
Mais je crois que si je bypass cette étape avec un Range.CopyPicture, je ne peux plus calculer le Ratio.
A voir...

 

[Dudu2]

Alors, en effet, j'ai pu supprimer l'étape de Paste de l'image sur la feuille.
Il a fallu ajuster 2/3 trucs comme le calcul de la taille initiale de l'image basée maintenant sur le Range, mais ça marche.
Merci pour l'info

 

[TooFatBoy]

On ne se parle plus depuis qu'il a qualifié mes posts de "poison" et que la modération est intervenue pour nous séparer dans le pugilat verbal du ruban. Depuis, on utilise ton pseudo pour s'interpeller.

Ce n'est pas gentil pour moi, et ça m'étonne de toi.

 

[Dudu2]

Ce n'est pas gentil pour moi,

Mais c'est une blague @TooFatBoy ! Un grosse blague ! Basée sur le fait que tu as toi-même noté que tu étais "interpellé" sans raison apparente post #12.

et ça m'étonne de toi.

Purée ! si j'ai une telle réputation de bad guy, je mets plus les pieds ici.
Ça fera un "poison" de moins, comme dit l'autre.

 

[TooFatBoy]

Purée ! si j'ai une telle réputation de bad guy, je mets plus les pieds ici.

Tu n'as pas une réputation de mauvais garçon, puisque j'ai dit que "ça m'étonne de toi".
Si tu avais une réputation de mauvais garçon, ça ne m'aurait pas étonné de toi.

 

[Dudu2]

Comme confirmé en privé, il y a eu méprise.
De toutes façons, je vais prendre du recul et ne plus mettre mon grain de sel dans les sujets.
Il y a suffisamment d'experts pour répondre aux questions et pour l'instant mes posts ne suscitent rien de positif. Bonne continuation à tous, @+.

 

[TooFatBoy]

Il y a juste eu méprise sur la blagounette, mais pas sur tes réponses techniques.
Ton explication plus haut est parfaiment claire, la méprise a donc disparu.
Tout va donc bien.

 

[TooFatBoy]

Si tu t'éloignes, on va s'empoisonner sans toi...

 

[patricktoulon]

re
bonsoir @TooFatBoy
comme je l'ai codé dans le POST#12 les dimensions sont connues
avec quoi que ce soit comme object
ObjecOrRange.CopyPicture
Set chart1 = ObjecOrRange.Parent.ChartObjects.Add(0, 0, 0, 0).Chart
With chart1
With .Parent
.Width = ObjecOrRange.Width: .Height = ObjecOrRange.Height: .Left = ObjecOrRange.Width + 20:

mais honnêtement comme je l'ai dis un post plus tot le format WMF offre une qualité bien meilleure
et permet aussi la transparence (je parle de la transparence complète)
copypicture copie n'importe quoi en WMF en mémoire

la sauvegarde avec l'export par un graphique réduit la qualité
et on constatera même que selon l'extension de l'export la qualité n'est pas la même

et c'est moins rapide qu'avec l'api


ici et ailleurs on trouve des codes avec graphique exportant une plage ou autre copié en jpg,png,gif,et même Tiif
quand on regarde a la lecture en binaire l'image obtenue ,on a bien les indicatif du jpg en entête mais le reste des bits ne correspondent pas tout a fait au jpg ni au gif c'est une sorte hybride entre le jpg et le gif mais en aucun cas png

 

[patricktoulon]

re
tiens j'ai retrouvé la demo de 2018
a gauche WMF a droite pseudo jpg avec l'export graphique

et oui!!! les cellules qui ont un interior.color xlnone sont réellement transparentes

dans l'exemple qui suit je switch export graphique et wmf
je sais pas si la capture va bien rendre mais à l’écran les détails des poils du koala sont plus flous avec l'export graphique

 

[Dudu2]

Bonjour à tous,
Allez, un ptit dernier avant de prendre la route...

Pour gérer la transparence, pas besoin d'une usine à gaz avec des ExecuteExcel4Macro dont on sait maintenant que plus on les exécute plus ils ralentissent.

 

[patricktoulon]

re
Bonjour
Attention!!!!
ne pas confondre pas de calque (0) et transparence
dans certaines application comme simplement paint de windows c'est noir
et c'est normal

 

[patricktoulon]

d'ailleurs ca confirme ce que je dis dans la ressource
cette méthode déconne à plein tube
mis apart la qualitée dégradée qui est ma fois selon l'utilité pas très grave
on a aussi la propriété ou la convertion l'ors de l'export qui est fausse
par exemple ici au lieu de masquer le fill.visible au contraire je le laisse visible mais transparent

 .Chart.ChartArea.Fill.Visible = msoTrue
        .Chart.ChartArea.Fill.Solid
        .Chart.ChartArea.Format.Fill.Transparency = 1

ce n'est pas pour rien que je ne l'utilise pas

je parlais de qualité voilà ce que l'on obtient quand on insert dans la feuille une capture précédemment faite avec un graph
le visuel est plus que parlant

 

[patricktoulon]

maintenant enregistrer en png avec transparence
on voit la qualité s'améliorer nettement
mais du coup là on est plus compatible avec les msforms.Image dans les userforms