XL 2013 Titre Axe Y d'un graphique (bug VBA excel?)

F

fredl

XLDnaute Impliqué

• 30 Septembre 2016

• #2

Bonjour,
"as tu essayé à la place XlValue de mettre xlCategory (comme avec Y)
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Potentiel (mv)"

soit:
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Potentiel (mv)"

je viens d'essayer, mais sans succès....
(cela selectionne le libellé de l'axe des X...)
merci quand même.

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 30 Septembre 2016

• #3

Bonsoir,

C'est juste une supposition, mais je dirais que "msoElementPrimaryValueAxisTitleAdjacentToAxis" n'est pas utilisable pour l'axe vertical.

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 3 Octobre 2016

• #4

Bonjour,
étrange donc que l'enregistreur de macro nous propose cette instruction...
As tu une autre idée à me soumettre? ,
car là..., je cale...
Merci pour ton aide.
Cordialement.
Frédéric

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 3 Octobre 2016

• #5

Bonsoir,

Je n'ai pas tout testé mais il me semble que l'enregistreur de macro propose cette "option" pour les axes horizontaux et d'autres options pour les axes verticaux où, notamment, on définit l'alignement des caractères par rapport à l'axe.

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 4 Octobre 2016

• #6

trouvé! :

Code:

ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Potentiel (mv)"

Frédéric

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 4 Octobre 2016

• #7

Bonsoir,

Parfait !

 

Vote positif 0 Vote négatif