couleur axe graphique

13GIBE59

XLDnaute Accro

• 29 Mars 2010

• #2

Re : couleur axe graphique

Bonjour Sauce31.

Cela me paraît possible a priori. Utilise l'enregistreur de macros, et sélectionne ton axe, clic droit -> format de l'axe et dans la boîte de dialogue, choisis "aucune" si tu ne veux pas voir l'axe ou sélectionne la couleur de ton choix.

Il ne te reste plus qu'à intégrer le code généré, dans ton code existant.

Au plaisir.

 

Vote positif 0 Vote négatif

S

sauce31

Guest

• 29 Mars 2010

• #3

Re : couleur axe graphique

J'ai déjà essayé avant de poser la question sur le forum mais il me génère pas de code.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mars 2010

• #4

Re : couleur axe graphique

Bonjour sauce31,

Clic droit sur l'axe => Format de l'axe => Motifs => Lignes => Couleur : blanche.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mars 2010

• #5

Re : couleur axe graphique

Re,

Avec la manip précédente, l'enregistreur de macro donne ceci :

Code:

Sub Macro1()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).Select
    With Selection.Border
        .ColorIndex = 2
        .Weight = xlHairline
        .LineStyle = xlContinuous
    End With
    With Selection
        .MajorTickMark = xlOutside
        .MinorTickMark = xlNone
        .TickLabelPosition = xlNextToAxis
    End With
End Sub

A adapter et simplifier bien sûr.

A+

 

Vote positif 0 Vote négatif

S

sauce31

Guest

• 29 Mars 2010

• #6

Re : couleur axe graphique

C'est en vba que je souhaiterais le faire. Je sais le faire manuellement mais comme j'ai 200 graphique à faire, ca serai un peu long de le faire à la main.

 

Vote positif 0 Vote négatif

S

sauce31

Guest

• 29 Mars 2010

• #7

Re : couleur axe graphique

C'est bizarre car quand je le fais, je n'ai pas de code similaire qui se crée.

 

Vote positif 0 Vote négatif

S

sauce31

Guest

• 29 Mars 2010

• #8

Re : couleur axe graphique

Ca marche. Merci.

Mais pourquoi ce code n'apparait pas sur mon enregistreur de macro?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mars 2010

• #9

Re : couleur axe graphique

Re,

Avez-vous bien lancé l'enregistreur de Macro par Outils-Macro-Nouvelle macro ?

Voici la macro simplifiée :

Code:

Sub Macro1()
ActiveSheet.ChartObjects("Graphique 1").Chart.Axes(xlCategory).Border.ColorIndex = 2
End Sub

Pour plusieurs graphiques dans la même feuille active, faire une boucle :

Code:

Sub Macro1()
Dim ch As Object
For Each ch In ActiveSheet.ChartObjects
ch.Chart.Axes(xlCategory).Border.ColorIndex = 2
Next
End Sub

A+

 

Vote positif 0 Vote négatif