J'ai créé un programme VBA pour Excel 2007 qui crée automatiquement des graphiques à barres pour ROI en fonction de 52 onglets différents dans le classeur actif. Je suis proche de faire, et le seul la chose que je ne peux pas comprendre est comment changer les couleurs des bargraphes. Les graphiques sont créés dans leur propre sous-fonction, appelé avec un appel comme si . Chaque variable change sur chaque fois que cela s'appelle. mon appelle qu'il appelle cela ressemble à ceci. la couleur RVB Je souhaite utiliser la deuxième série du graphique à barres est (155, 187, 89), conformément aux souhaits du marketing. Je suis à peu près sûr qu'il y a un .chat. ????. ???? = RVB (155, 187, 89) commande que je puisse utiliser dans mon avec pour la définir, mais j'ai passé beaucoup trop de temps à essayer de le comprendre, seulement pour venir avec rien.
3 Réponses :
Avez-vous essayé (où [index] est un espace réservé pour la série que vous souhaitez modifier la couleur)?
Parfait! Je manquais juste le .Interior. portion. Merci une tonne jubbles!
Cela fonctionne pour moi Scottystyles dans une situation très similaire, mais uniquement pour la première collection de la série. J'ai utilisé le même droit en dessous de cela, et cela ne changeait pas la couleur de la sérieCollection (2). Celui-ci est un ensemble linéaire de données.
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ClearToMatchStyle
ActiveChart.SeriesCollection(1).Interior.Color = RGB(85, 142, 213)
ActiveChart.SeriesCollection(2).Interior.Color = RGB(192, 0, 0)
Pour modifier différentes barres à l'intérieur d'une collection, vous pouvez utiliser:
p>
ActiveChart.SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(85, 142, 213) ActiveChart.SeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(192,0, 0) ...