Discussion :

[geonosis47]

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.

[Daniel.C]

Bonjour,

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

Code :

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

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

Ensuite, il faut charger l'image :

Code :

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

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

[geonosis47]

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:



Existe-t'il une autre solution ?

Merci

[Daniel.C]

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.

[patricktoulon]

Bonjour

Code :

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

fmPictureSizeModeStretch.

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

[geonosis47]

Voici le bout de code que j'utilise:

Code :

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

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 ?