0

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

我需要让它们对相同的标题使用相同的颜色，但 Excel 分配不同的颜色。我该如何排序？

仅供参考，图表的数据会定期过滤，因此标题确实会发生变化，但两个图表始终包含相同的标题。

谢谢

米

4

1 回答 1

0

以下 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)是您的饼图。

如果不是这种情况，您将收到错误消息。

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

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

于 2014-06-19T09:51:36.217 回答