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。

如果情况并非如此，您将收到错误。

饼图中的颜色将设置为柱状图中的颜色

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

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

1 个答案: