Discussion :

[Toad08]

Bonjour tout le monde ...

Voila, j'ai beau cherché dans l'aide de VBA j'arrive pas a mettre la main sur le code me permettant de changer la taille de police des valeurs de l'axe des abscisses dans mon graphique. A partir de VBA bien sur !!!
Si vous aviez ce "petit" code .... Merciiiiii

[nefertari]

Voilà ceci pourra peut être t'aider.

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
   ActiveSheet.ChartObjects("Graphique 19").Activate
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.AutoScaleFont = False
    With Selection.TickLabels.Font
        .Name = "Arial"
        .FontStyle = "Gras italique"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With

[fring]

Bonjour,

Un petit exemple des paramètres principaux (il y en a d'autres comme la couleur, l'arrière plan, le soulignement, etc...))

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
Sheets("Graph1").Select
    With ActiveChart.Axes(xlCategory).TickLabels.Font
        .Name = "Arial Narrow"
        .Size = 12
        .Italic = True
        .Bold = True
    End With
End Sub

Idem que ci-dessus après nettoyage de l'enregistreur de macro

[Toad08]

Ok ... Merci sa marche a merveille !!!!!