Ajuster la taille d'un graphique à une zone image Userform

Bonjour à tous,

J'ai le même soucis que fowlie dans cette discussion. J'aimerai ajuster la taille d'un graphique à une zone image localisée dans un Userform. Je ne sais pas si une solution a été trouvée depuis que le sujet à été ouvert.
J'ai également testé la méthode du LoadPicture, mais c'était trop beau pour être vrai, dommage ...
Existe-t'il une méthode permettant, par exemple, de détecter le Height & Width d'une zone image et de l'appliquer à un graphique ?
Merci.

Bonjour,

Il faut d'abord expporter le graphique comme une image (JPG ou autre) :

Code:

---

ActiveChart.Export "c:\temp\temp.jpg", "JPG"

---

Ensuite, il faut charger l'image :

Code:

---

1 2	UserForm1.Image1.Picture = LoadPicture("c:\temp\temp.jpg") UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom

---

Merci de votre réponse rapide.
Effectivement la ligne "UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom" n'était pas présente dans mon code, et je l'ai insérée.
Malgré cela, l'image ne s'adapte pas du tout au format du Userform, voir image ci dessous:

Pièce jointe 157151

Existe-t'il une autre solution ?

Merci

L'image s'adapte au format du contrôle "Image". Je ne puis rien déduire de ta pièce jointe, ne sachant pas où se situe le contrôle image. Essaie les autres constantes de PictureSizeMode : fmPictureSizeModeClip et fmPictureSizeModeStretch.

Bonjour

Code:

---

fmPictureSizeModeStretch.

---

adapte l'image au control image de l'userform (attention proportions non gardées)

Voici le bout de code que j'utilise:

Code:

---

1 2 3 4 5 6 7 8 9

Set Ch = MonChart(Worksheets("AnalyseEpaisseurs")) If Not Ch Is Nothing Then NomImage = ThisWorkbook.Path & Application.PathSeparator & "Graph1.gif" Ch.Export Filename:=NomImage, FilterName:="GIF" Me.Image4.Picture = LoadPicture(NomImage) UserForm7.Image4.PictureSizeMode = fmPictureSizeModeZoom Set Ch = Nothing Kill NomImage End If

---

Quelque chose ne vas pas ?

Bonjour,

Mets :

Code:

---

UserForm7.Image4.PictureSizeMode = fmPictureSizeModeStretch

---

et supprime :

Code:

---

Kill NomImage

---

c'est de la violence inutile.

Ok merci pour ces réponses. le fmPictureSizeModeStretch fonctionne, malgré la déformation de l'image d'origine ...
Il n'existe aucun moyen d'appliquer une taille précise à une image (longueur, largeur) ???
J'ai trouvé un outil permettant d'augmenter l'échelle de l'image, mais cela ne correspond pas du tout à mon besoin.

Soit tu déformes ton image pour remplir le contrôle image, soit tu le remplis au mieux sans déformation, soit tu ne fais pas de changement de taille. Quel est ton problème ?

Bonjour

On peut redimensionner l'image qui est enregistrer en c:\temp, ainsi lors de son insertion dans le userform, elle est au dimension voulue.
Dites moi si cette piste vous interesse et donner moi les dimensions de l'image (hauteur, largeur en pixel)

Finalement, en gardant votre bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

'Necessite l'activation de la reference microsoft Windows Image File Automation V2.00 Dim Img As WIA.ImageFile, IP As WIA.Imageprocess Dim Ch As Variant Dim Largeur As Single, Hauteur As Single Dim Nomimage As String   Set Ch = MonChart(Worksheets("AnalyseEpaisseurs")) If Not Ch Is Nothing Then Nomimage = ThisWorkbook.Path & Application.PathSeparator & "Graph1.gif"   Largeur = UserForm7.Image4.Width Hauteur = UserForm7.Image4.Height Set Img = CreateObject("WIA.ImageFile") 'Création conteneur pour l'image à manipuler Set IP = CreateObject("WIA.ImageProcess") 'Création du gestionnaire de filtre Img.LoadFile Nomimage IP.Filters.Add IP.FilterInfos("Scale").FilterID 'Ajoute le filtre pour redimensionner l'image (Scale) IP.Filters(1).Properties("MaximumWidth") = Largeur 'Définit la largeur IP.Filters(1).Properties("MaximumHeight") = Hauteur 'Définit la hauteur Set Img = IP.Apply(Img)   Ch.Export Filename:=Nomimage, FilterName:="GIF" Me.Image4.Picture = LoadPicture(Nomimage) UserForm7.Image4.PictureSizeMode = fmPictureSizeModeZoom Set Ch = Nothing End If   Set Img = Nothing

---

je n'était pas sur que le gif soit traiter

Daniel.C:

Le problème est que cette macro est commune à plusieurs dizaines de fichiers Excel répartis à divers endroits sur un serveur.
Certains de ces fichiers ont plusieurs années, et les graphiques dans ces fichiers n'ont pas forcément les mêmes dimensions,
de plus, la macro a pas mal évoluée durant tout ce temps.
Du coup, au lieu de changer manuellement la taille des graphiques pour chaque fichier, il est plus aisé de modifier automatiquement leurs taille par macro.
Le mode "fmPictureSizeModeStretch" est une solution, mais déforme fortement certains graphiques et peut rendre le post-traitement des résultats des graphiques difficile.

Keygen08:

Merci pour cette proposition.
Vous expliquez qu'il faut activer une référence "Windows Image File Automation V2.00".
Ce choix est disponible dans "Outil\Références..." je suppose ?
Si c'est le cas, je ne le trouve pas. Faut-il installer quelque chose de particulier ?

Merci.

Si Windows file automation n'est pas dispo, il faut effectivement l'installer.
Tout depend de la configuration, mais y compris sur Windows serveur 2008, cela fonctionne.
Je l'avais installé sur mon serveur, mais comment ai-je fait ????
Windows file automation permet simplement de manipuler les images au travers de Paint.
je regarde et vous dit quoi.

peut etre par passant par outils reference, parcourir et rechercher WIAAUT.DLL
Chez moi (mon serveur), cette dll se trouve dans Windows/system32
La reference activé elle porte le nom Microsoft Windows image acquisition Library v2.0
mon code datant de XP, le nom a changé en meme temps que les version de Windows.

http://silkyroad.developpez.com/VBA/...geAcquisition/

Merci beaucoup, cela fonctionne !