VBA Police axe abscisse

Version imprimable

10/03/2008, 16h26
Toad08

VBA Police axe abscisse

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

Voilà ceci pourra peut être t'aider.

Code:

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

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:

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 ;)

10/03/2008, 17h09
Toad08

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

Fuseau horaire GMT +2. Il est actuellement 08h22.