gpt4 book ai didi

excel - 更改条形图中的条形颜色

转载 作者:行者123 更新时间:2023-12-02 00:07:14 24 4
gpt4 key购买 nike

我创建了一个 VBA for Excel 2007 程序,该程序可以根据事件工作簿中最多 52 个不同的选项卡自动创建 ROI 条形图。我即将完成,唯一我不知道的是如何更改条形图的颜色。

图表是在它们自己的子函数中创建的,通过像这样的调用来调用。每个变量在调用时都会发生变化。

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

它调用的我的子程序看起来像这样。

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

根据营销人员的意愿,我想在条形图中的第二个系列上使用的 RGB 颜色是 (155, 187, 89)。我很确定有一个 .chart。???.???? = RGB (155, 187, 89) 命令我可以在我的 With 中使用它来设置它,但我花了太多时间试图弄清楚它,只是想出了什么都没有。

最佳答案

你试过吗

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

(其中 [index] 是您要更改颜色的系列的占位符)?

关于excel - 更改条形图中的条形颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5624882/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com