j'ai un code vba qui crée 15 graphs sur une page excel. Je souhaiterai
écrire un code qui change les propriétés de ce graphique mais sans écrire ce
code pour tout les graphiques cad utiliser une fonction FOR...EACH, mais je
n'ai pas reussi a écrire cette partie : pour tout graph, appliquer les lignes
suivante :
ActiveChart.ChartTitle.Select
ActiveChart.Legend.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = asize
End With
quelqu'un pourrait me proposer un debut de code incluant celui ci avec du
each et for.
merci beaucoup
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Exemple (à adapter à ton cas) pour parcourir tous les graphiques de la feuille "Feuil1" et mettre leur légende en rouge
Sub zz_Graph() With Sheets("Feuil1") For x = 1 To .ChartObjects.Count .ChartObjects(x).Select ActiveChart.Legend.Font.ColorIndex = 3 Next End With End Sub
AV
Exemple (à adapter à ton cas) pour parcourir tous les graphiques de la feuille
"Feuil1" et mettre leur légende en rouge
Sub zz_Graph()
With Sheets("Feuil1")
For x = 1 To .ChartObjects.Count
.ChartObjects(x).Select
ActiveChart.Legend.Font.ColorIndex = 3
Next
End With
End Sub
Exemple (à adapter à ton cas) pour parcourir tous les graphiques de la feuille "Feuil1" et mettre leur légende en rouge
Sub zz_Graph() With Sheets("Feuil1") For x = 1 To .ChartObjects.Count .ChartObjects(x).Select ActiveChart.Legend.Font.ColorIndex = 3 Next End With End Sub
