modifier taille police legende graphique

  • Initiateur de la discussion Initiateur de la discussion nicroq
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nicroq

XLDnaute Occasionnel
Bonjour,

Je souhaiterai par VBA modifier la taille de police de la légende de tous les graphique présents sur la feuil1 :
voici mon code que je n'arriv epas à faire marcher :

Sub taille_polie_graph()

Set f1 = Worksheets(Feuil1.Name)
Application.ScreenUpdating = False
On Error Resume Next


Dim forme As Shape
For Each forme In f1.Shapes
With forme
.Legend.Select
.Format.TextFrame2.TextRange.Font.Size = 50
End With

Next forme

End Sub

merci pour votre aide
 
Bonsoir Nicroq,

A partir d'Excel 2007 (ou 2010 je ne me souviens pas) :
Code:
Sub taille_police_graph1()
Dim ch As ChartObject
For Each ch In ActiveSheet.ChartObjects
  If ch.Chart.HasLegend Then ch.Chart.Legend.Format.TextFrame2.TextRange.Font.Size = 50
Next
End Sub
Sur toutes versions Excel :
Code:
Sub taille_police_graph2()
Dim ch As ChartObject
For Each ch In ActiveSheet.ChartObjects
  If ch.Chart.HasLegend Then ch.Chart.Legend.Font.Size = 50
Next
End Sub
C'est quand même plus simple !

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
0
Affichages
789
Retour