2017-04-19 1 views

Répondre

0

Il vous suffit de faire une boucle sur la Chart.SeriesCollection et de définir series.Interior.Color à la valeur entière RVB souhaitée.

  For i = 1 To chart.SeriesCollection.count 
      Dim series As Series = chart.SeriesCollection(i) 
       series.Interior.Color = newColor 
      Next 
+0

Qu'est-ce que 'newColor'? J'ai essayé à la fois un élément de type Color.red réel, et j'ai également passé la valeur RGB comme un entier. Les deux me donnent une exception. – Gargoyle

+0

c'est une valeur RVB sous la forme d'un nombre entier. Le mettre à 0 devrait rendre votre colonne noire. La feuille/carte est-elle protégée? Que dit l'exception? – misterfrb

+0

Paramètre invalide. Rien n'est protégé car le graphique a également été généré via le code. – Gargoyle