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
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