饼图中的颜色与柱状图中的颜色相同

Question

我在同一张表格上有两个图表，一个饼，一个列。它们显示相同的标题，来自相同的行，但数据来自不同的列。(可能有多达100个数据系列或切片)。

我需要让他们使用相同的颜色为相同的标题，但Excel分配不同的颜色。我怎么排序呢?

仅供参考，图表的数据是相当有规律地过滤的，所以标题确实会改变，但两个图表总是包含相同的标题。

感谢

Answer 1

下面的VBA代码正在进行格式化:

Option Explicit
Sub sameColors()
Dim ColChart As Chart
Dim PieChart As Chart
Dim NumberOfTitles As Integer
Dim actTitle As Integer
Dim ColorColumn As Long
Set ColChart = ActiveSheet.ChartObjects(1).Chart
Set PieChart = ActiveSheet.ChartObjects(2).Chart
NumberOfTitles = ColChart.SeriesCollection.Count
For actTitle = 1 To NumberOfTitles
    ColorColumn = ColChart.SeriesCollection(actTitle).Interior.Color
    PieChart.SeriesCollection(1).Points(actTitle).Interior.Color = ColorColumn
Next actTitle
End Sub

这是假设Chartobjects(1)是你的柱状图，Chartobjects(2)是你的皮哈特。

如果不是这样，你会得到一个错误。

Piechart中的颜色将被设置为柱状图

中的颜色

必须在每次过滤完数据表后运行代码