Taille image dans un userform

Invité · 24/01/2012, 10h40

Bonjour le forum,

Dans mon userform j'ai mis une image. Cette image et en fait une copie d'un graphique que je créer sur excel. Le problème est que je n'arrive pas à dimensionner l'image du graphique. Je ne suis peut-être pas clair.

Ma fonction créer un graphe. Pour l'afficher dans mon useform je le copie dans un dossier en tant qu'image et je charge cette image dans mon userform. C'est la seule méthode que j'ai trouvé. elle fonctionne trés bien. Mais je n'arrive pas à redimensionner le graphe. Je pense qu'il faut le redimensionner avant de l'enregistrer dans un fichier .. mais je n'ai pas trouvé le bon code.

Code :

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

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Function grapheAchat()
    Charts.Add
    ActiveChart.ChartType = xl3DPie
    ActiveChart.SetSourceData Source:=Sheets("Calcul Délai").Range( _
        "C14:E14,C2:E2")
    ActiveChart.Location Where:=xlLocationAsObject, name:="Calcul Délai"
 
    ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
    False, HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:= _
    False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
    ActiveChart.SeriesCollection(1).DataLabels.Select
    With Selection.Font
        .FontStyle = "Gras"
        .Size = 14
    End With
    ActiveChart.SeriesCollection(1).DataLabels.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Position = xlLabelPositionCenter
        .Orientation = xlHorizontal
    End With
 
    ActiveChart.SeriesCollection(1).Points(3).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 5
        .Pattern = xlSolid
    End With
    ActiveChart.SeriesCollection(1).Points(2).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
    ActiveChart.SeriesCollection(1).Points(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "grph"
    End With
 
    Dim Grph As Chart
    Set Grph = ActiveChart
    Grph.Export Filename:="C:\Temp\Grph.jpg", filtername:="JPG"
    StatUsine.Image1.Picture = LoadPicture("C:\Temp\Grph.jpg")
    Sheets("Calcul délai").ChartObjects(1).Delete
 
End Function

J'ai essayé d'enregistré une macro dans laquelle j'agrandis mon graphe et j'obtiens :

Code :

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

1
2
3
4
    ActiveSheet.Shapes("Graphique 366").ScaleWidth 1.16, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("Graphique 366").ScaleHeight 1.41, msoFalse, _
        msoScaleFromBottomRight

Cependant je n'arrive pas à l'adapter à ce dont j'ai besoin, mon graphique ne s'appelant pas "Graphique 366", en fait je ne lui donne pas de nom dans ma fonction.

Que dois-je utiliser?
Merci pour votre aide

**Daniel.C** · 24/01/2012, 18h42

Les paramètres sont dans "LoadPicture" :
LoadPicture(Fichier,Largeur, Hauteur)
Par exemple :

Code :

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

Me.Image1.Picture = LoadPicture("c:\temp\ch.jpg", 900, 600)

Invité · 25/01/2012, 09h48

Merci pour ce conseil, mais malheureusement j'ai testé plusieurs valeurs et ça ne marche pas. Ne faut-il pas choisir la taille avant d'enregistrer le graphe dans le dossier temporaire, et de la charger ensuite dans le userForm?

**Daniel.C** · 25/01/2012, 11h11

Ça fonctionne ici. Quelle est ta version d'Excel (tu devrais l'indiquer systématiquement dans le titre du message) ?
Et poste si tu le peux un classeur exemple.

Invité · 25/01/2012, 11h45

Je travaille sous excel 2003, mais j'ai besoin que mon projet s'adapte à 2007 et 2010 ...

Je ne peux pas envoyer de classeur, désolé ..

Mais je peux essayer de mieux m'expliquer.

J'ai créer un userform avec une "zone image" à l'intérieur
Dans ma feuille excel j'ai un tableau de ce type :

En cours Terminé Abandon
2 3 5

Sur cette même feuille j'ai un bouton, celui-ci permet d'afficher mon userform avec le code suivant :

Code :

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

1
2
Application.Run (grapheAchat)
            Stat.Show

Stat étant le nom de mon userform et grapheAchat étant une fonction qui me permet de créer le graphe, de l'enregistrer puis de le charger en tant qu'image dans mon userform, en voici le code :

Code :

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

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Function grapheAchat()
    Charts.Add
    ActiveChart.ChartType = xl3DPie
    ActiveChart.SetSourceData Source:=Sheets("Calcul Délai").Range( _
        "C14:E14,C2:E2")
    ActiveChart.Location Where:=xlLocationAsObject, name:="Calcul Délai"
 
    ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
    False, HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:= _
    False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
    ActiveChart.SeriesCollection(1).DataLabels.Select
    With Selection.Font
        .FontStyle = "Gras"
        .Size = 14
    End With
    ActiveChart.SeriesCollection(1).DataLabels.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Position = xlLabelPositionCenter
        .Orientation = xlHorizontal
    End With
 
    ActiveChart.SeriesCollection(1).Points(3).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 5
        .Pattern = xlSolid
    End With
    ActiveChart.SeriesCollection(1).Points(2).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
    ActiveChart.SeriesCollection(1).Points(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "grph"
    End With
 
    Dim Grph As Chart
    Set Grph = ActiveChart
    Grph.Export Filename:="U:\LEAN\Stagiaires\Julie\Grph.jpg", filtername:="JPG"
    Stat.Image1.Picture = LoadPicture("C:\Temp\Grph.jpg", 550, 400)
    Sheets("Calcul délai").ChartObjects(1).Delete
 
End Function

J'ai essayé de mettre la ligne

Code :

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

 Stat.Image1.Picture = LoadPicture("C:\Temp\Grph.jpg", 550, 400)

dans le userform_initializing en remplaçant Stat par Me mais ça n'a rien changé ...

Invité · 26/01/2012, 09h14

Il n'y a pas d'autres moyens d'augmenter la taille que l'utilisation de LoadPicture?
Personne n'a d'idée sur mon problème?

Merci d'avance

**Daniel.C** · 26/01/2012, 11h02

Ce n'at pas avec "LoadPicture. Regarde :

Code :

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

Me.Image1.PictureSizeMode = fmPictureSizeModeStretch

Regarde les différentes valeurs de "PictureSizeMode"

Invité · 26/01/2012, 15h02

Ah merci =D effectivement ça s'adapte à la taille de la zone image.

Par contre mon image étant agrandie, elle est un peu floue, enfin je peux avancer avec ça, mais est-il possible d'agrandir le graphe avant de l'enregistrer en jpeg, afin de le charger directement à la bonne taille?

J'ai peut-être trouvé une solution, en utilisant ce code j'arrive à modifier la taille du graphique :

Code :

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

1
2
3
4
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).ScaleWidth 1.3, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).ScaleHeight 1.15, msoFalse, _
        msoScaleFromBottomRight

Mais je n'arrive pas à trouver les bonnes dimensions, que représente exactement les chiffres 1.3 et 1.15? j'agrandis la largeur de 30% et la hauteur de 15% c'est ça?

**Daniel.C** · 26/01/2012, 18h23

Oui, ou tu peux aussi utiliser :

Code :

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

1
2
3
4
5
    With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
        .LockAspectRatio = msoTrue
        .ScaleHeight 1.15, msoFalse, _
            msoScaleFromBottomRight
    End With

"LockAspectRatio" conserve les proportions hauteur / largeur.