Discussion :

[Gautheron]

Bonjour,

je travaille avec des graphiques batons en horizontal. JE n'arrive pas à élargir le largeur des etiquettes de données ce qui fait que lorsque qu'un titre d'une série est grand, il se met sur plusieurs lignes, se surperposant à ceux d'en dessous...
Peut on forcer cette largeur par une macro ?
J'ai essayé "serie.DataLabels.width = 29 (parex)" mais ca ne marche

Quelqu'un a t il une idée ?

[Gautheron]

J'ai trouvé (tout seul et par chance, j'avoue) une solution. C'est bien la première fois que je dois substituer une fonction disponible dans excel par une astuce.

Si comme moi, vous avez des problemes avec le formats des légendes, et que vous voulez les dominer, voici comment procédés :
1) ne pas afficher les légendes
2) créer des boites textes au sein même du graphique, et leurs donner le contenu, format, couleur, etc, que vous désirez...
et finalement on s'en sort avec un code tout simple d'ajout de textbox, où les variables sont configurable en fonction de la largeur du schema, la largeur des barres graphiques, etc...

Code :

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

1
2
3
4
5
6
7
8
 
With ActiveWorkbook.Worksheets(feuille).ChartObjects(index_grah).Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, gauche, haut, largeur, hauteur)
              .TextFrame.Characters.Font.Size = 11
              .TextFrame.Characters.Text = serie.Name
'              .Size = 11
'              .TextFrame.AutoSize = True
              '.Name = tb + 1
        End With

J'espère que ce sera utile à d'autres.
A bientot