Ändern von Balken-Farben in Balkendiagramm

Habe ich einen VBA-für Excel 2007-Programm, das automatisch Balkendiagramme für ROI auf Basis von bis zu 52 verschiedenen Registerkarten in der aktiven Arbeitsmappe. Ich bin in der Nähe gemacht, und die nur Sache, die ich kann nicht herausfinden, wie ändern Sie die Farben der bargraphen.

Den Graphen erstellt werden, in Ihren eigenen Unterfunktion, bezeichnet mit einem Aufruf wie so. Jede variable ändert sich um, wenn es aufgerufen wird.

Call AddChartObject(1, 1, "Example", extraWeeks, weekDifference)

Meinem sub, dass es Aufrufe sieht das so aus.

Sub AddChartObject(j As Integer, k As Integer, passedChartTitle As String, xtraWks As Integer, ttlWks As Integer)

    Dim topOfChart As Integer

    topOfChart = 25 + (350 * j)

    'Adds bar chart for total sales

    With ActiveSheet.ChartObjects.Add(Left:=375, Width:=475, Top:=topOfChart, Height:=325)
        .Chart.SetSourceData Source:=Sheets("Consolidation").Range("$A$" & 3 + ((17 + xtraWks) _
            * j) & ":$C$" & (4 + ttlWks) + ((17 + xtraWks) * k))
        .Chart.ChartType = xl3DColumnClustered
        .Chart.SetElement (msoElementDataLabelShow)
        .Chart.HasTitle = True
        .Chart.ChartTitle.Text = passedChartTitle & " Sales"
        .Chart.SetElement (msoElementLegendBottom)
        .Chart.SetElement (msoElementDataLabelNone)
        .Chart.RightAngleAxes = True
    End With

End Sub

Den RGB-Farbe, die ich verwenden möchten, auf die ZWEITE Serie, in der Balken-chart (155, 187, 89), pro marketing-Wünsche. Ich bin mir ziemlich sicher, dass es eine .chart.????.???? = RGB (155, 187, 89) Befehl kann ich verwenden in meinem With set, aber ich habe verbrachte viel zu viel Zeit mit dem Versuch, es herauszufinden, nur zu kommen mit nichts.

InformationsquelleAutor ScottyStyles | 2011-04-11

  1. 13

    Haben Sie versucht, 

    .Chart.SeriesCollection([index]).Interior.Color = RGB(155, 187, 89)

    (wobei [index] ist ein Platzhalter für die Serie, die Sie wollen, um die Farbe zu ändern)?

    Perfekt! Ich war gerade fehlt .Innenraum. Teil. Dank einer Tonne Jubbles!

    InformationsquelleAutor Jubbles

  2. 3

    Es funktioniert für mich ScottyStyles in einer sehr ähnlichen situation, aber nur für die erste Serie der Sammlung. Ich habe das gleiche rechts unten, und das war nicht die änderung der Farbe des SeriesCollection(2). Dass man auf einen linearen Satz von Daten.

    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)

    InformationsquelleAutor Csaba

Schreibe einen Kommentar