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

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2023

• #16

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2023

• #17

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

Cliquez pour agrandir...

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...

 

Dernière édition: 11 Septembre 2023

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2023

• #18

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

 

Pièces jointes

• RangeToImageToFileToUserForm.xlsm

  40.5 KB · Affichages: 6

Dernière édition: 11 Septembre 2023

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Septembre 2023

• #19

Dudu2 à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2023

• #20

Ce n'est pas gentil pour moi,

Cliquez pour agrandir...

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. ☹️

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Septembre 2023

• #21

Dudu2 à dit:

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

Cliquez pour agrandir...

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.

 

Dernière édition: 11 Septembre 2023

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2023

• #22

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, @+.

 

Dernière édition: 11 Septembre 2023

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Septembre 2023

• #23

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. 😉

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Septembre 2023

• #24

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Septembre 2023

• #25

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Septembre 2023

• #26

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Septembre 2023

• #27

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.

 

Pièces jointes

• ObjectToImageToFileToUserForm.xlsm

  383.9 KB · Affichages: 10

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Septembre 2023

• #28

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 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Septembre 2023

• #29

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

VB:

 .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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Septembre 2023

• #30

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

 

Vote positif 0 Vote négatif