couleur axe graphique

[sauce31]

Bonjour,

En vba sur Excel, je créé un graphique de type histogramme.

J'aimerais pourvoir changer la couleur en blanc de mon axe des abscisses ou, encore mieux, la supprimer sans supprimer la légende qui va avec.

J'arrive à changer la couleur de la légende mais pas l'axe.

Est'ce possible?

Merci de vos réponses

 

[13GIBE59]

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.

 

[sauce31]

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.

 

[job75]

Re : couleur axe graphique

Bonjour sauce31,

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

A+

 

[job75]

Re : couleur axe graphique

Re,

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

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+

 

[sauce31]

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.

 

[sauce31]

Re : couleur axe graphique

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

 

[sauce31]

Re : couleur axe graphique

Ca marche. Merci.

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

 

[job75]

Re : couleur axe graphique

Re,

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

Voici la macro simplifiée :

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 :

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

A+