Contrôle MSChart: changer la police des valeurs des colonnes

**Asdorve** · 25/08/2006, 11h13

Bonjour,

je me suis penché sur l'utilisation du contrôle MsChart (il existe un très bon tuto sur ce site).
Par contre, je n'ai pas trouvé comment on change la police des valeurs de chaque colonne.

Par exemple, j'ai 12colonnes avec au bas de chacune une valeur, et c'est cette dernière que je voudrais modifier.

Ai-je mal cherché?

Merci beaucoup

**zazaraignée** · 25/08/2006, 12h08

Salut

Une idée comme ça:

Y-a-il une propriété Font pour un Label de la collection Labels de l'objet Axis?

**Asdorve** · 25/08/2006, 13h33

je serais tenté d'utiliser ça:

Code :

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

1
2
3
4
 
For i = 1 To 12
                MSChart1.Plot.Axis(VtChAxisIdX).Labels.Item(i).Font.Size = 50
Next

mais on me dit que l'objet est en lecture seule

**jmfmarques** · 25/08/2006, 13h42

Je déplore de ne plus avoir travaillé avec MsChart depuis très longtemps et risque donc fort de me montrer là plutôt faible.

Ce que je peux dans ces conditions faire de moins mal, Asdorve, c'est t'inviter à lire (peut-être ) ceci :

http://support.microsoft.com/default...b;en-us;277712

**Asdorve** · 25/08/2006, 13h48

Envoyé par jmfmarques

Je déplore de ne plus avoir travaillé avec MsChart depuis très longtemps et risque donc fort de me montrer là plutôt faible.

Ce que je peux dans ces conditions faire de moins mal, Asdorve, c'est t'inviter à lire (peut-être ) ceci :

http://support.microsoft.com/default...b;en-us;277712

ça me va très bien!

C'est exactement ce que je cherchais à faire.

Merci beaucoup jmf (et merci aussi zaza d'avoir répondu

)

@+

**khany** · 26/08/2006, 14h39

Envoyé par Asdorve

Bonjour,

je me suis penché sur l'utilisation du contrôle MsChart (il existe un très bon tuto sur ce site).
Par contre, je n'ai pas trouvé comment on change la police des valeurs de chaque colonne.
Par exemple, j'ai 12colonnes avec au bas de chacune une valeur, et c'est cette dernière que je voudrais modifier.

Ai-je mal cherché?

Merci beaucoup

si tu postes le code après test, je peux l'intégrer dans le tuto, ca ne fait jamais de tort

(sous ton nom évidemment)

et si tu as d'autres choses qui n'y sont pas mentionnées, n'hésites pas ! J'ai voulu faire un tour rapide des fonctions principales mais on peut y ajouter des détails dans un dernier chapitre

**Asdorve** · 28/08/2006, 08h37

Bonjour,
Voici le code que j'ai utilisé. Il est tel quel dans le lien de jmfmarques.
Si tu veux le mettre dans ton tuto en précisant la source de jmf

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
 
' Note that MSChart20Lib is for Visual Basic 6.0
    ' it should be MSChartLib in Visual Basic 5.0
    Dim currentaxis As MSChart20Lib.Axis
    Dim currentlabel As MSChart20Lib.Label
    ' Get a reference to the x axis
    Set currentaxis = MSChart1.Plot.Axis(VtChAxisIdX)
    ' Loop though and set the font of each label
    For Each currentlabel In currentaxis.Labels
        currentlabel.VtFont.Name = "Courier"
        currentlabel.VtFont.Size = 12
    Next currentlabel
    ' get a reference to the y axis
    Set currentaxis = MSChart1.Plot.Axis(VtChAxisIdY)
    ' loop through and set the font of each label
    For Each currentlabel In currentaxis.Labels
        currentlabel.VtFont.Name = "Courier"
        currentlabel.VtFont.Size = 12
    Next currentlabel
 ' get a reference to the y2 axis
    Set currentaxis = MSChart1.Plot.Axis(VtChAxisIdY2)
    ' loop through and set the font of each label
    For Each currentlabel In currentaxis.Labels
        currentlabel.VtFont.Name = "Courier"
        currentlabel.VtFont.Size = 12
    Next currentlabel

Bonne journée à tous.