XL 2013 Mise en forme graphiques

[ruhlito]

Sub MEF_Graph()

Bonjour a tous,

je cherche a modifier la mise en forme (et plus particulierement les etiquettes) de l'ensemble des grpahs de ma feuille.
J'ai essaye avec le code suivant mais sans succes. Qlq aurait une idee?

Dim Nbre_Graphe As Byte

For Nbre_Graphe = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(Nbre_Graphe)
ChartObjects(Nbre_Graphe).Activate


ActiveChart.FullSeriesCollection(1).DataLabels.Select
Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
Selection.Format.TextFrame2.TextRange.Font.Size = 14

Selection.ShowValue = False
Selection.ShowPercentage = True
End With
Next Nbre_Graphe
End Sub