我想在表格中勾勒图表数据范围源，就像单击图表数据系列时 GUI 将勾勒出蓝色范围一样。用户可以选择各种图表视图，每个数据系列的范围突出显示颜色需要与图表中显示的颜色相匹配。
作为记录，以下是我考虑过的方法：
最后我选择了选项 2，因为它似乎更易于实施和正确管理颜色，无论如何我可能不得不为方法 1 存储它们，从而否定了它的好处。
从Worksheet_Change 事件中调用突出显示过程，查找图表名称、从表格中提取的范围和颜色，然后执行单元格格式设置。此方法的局限性在于必须预先计算每个新图表视图的范围/颜色数据。这对我当前的实现来说不是什么大问题，但我会成为未来使用图表可能更加动态的限制因素。
因此，虽然我有一个可以正常工作的版本，但我确信一定有更优雅的方式来实现这一点。
有什么建议吗？
【问题讨论】：
编辑：
好的，这似乎可以更好地处理更多案件。触发代码相同，但这里是模块的新代码：
Function SeriesRange(s As Series) As Range
Dim sf As String, fa() As String
sf = s.Formula
sf = Replace(sf, "=SERIES(", "")
If sf = "" Then
Set SeriesRange = Nothing
Exit Function
End If
fa = Split(sf, ",")
Set SeriesRange = Range(fa(2))
End Function
Sub x(c As Chart)
Dim sc As Series
Dim sr As Range
If SeriesRange(c.SeriesCollection(1)) Is Nothing Then
Exit Sub
End If
Set sr = SeriesRange(c.SeriesCollection(1))
sr.CurrentRegion.Interior.ColorIndex = xlNone
For Each sc In c.SeriesCollection
If sc.Interior.Color > 1 Then
SeriesRange(sc).Interior.Color = sc.Interior.Color
ElseIf sc.Border.ColorIndex > 1 Then
SeriesRange(sc).Interior.Color = sc.Border.Color
ElseIf sc.MarkerBackgroundColorIndex > 1 And sc.MarkerBackgroundColorIndex < 57 Then
SeriesRange(sc).Interior.ColorIndex = sc.MarkerBackgroundColorIndex
ElseIf sc.MarkerForegroundColorIndex > 1 And sc.MarkerForegroundColorIndex < 57 Then
SeriesRange(sc).Interior.ColorIndex = sc.MarkerForegroundColorIndex
Else
MsgBox "Unable to determine chart color for data series " & sc.Name & " ." & vbCrLf _
& "It may help to assign a color rather than allowing AutoColor to assign one."
End If
Next sc
End Sub
/编辑
这可能比优雅更野蛮，但我认为它可以满足您的需求。它涉及从Series 对象获取范围的第一个要点，以及一个遍历图表SeriesCollection 中所有Series 对象的子点。这是在Chart_DeActivate 上激活的。大部分代码都被劫持了 - 请参阅 cmets 获取源代码。
在一个模块中：
Function SeriesRange(s As Series) As Range
Dim sf As String, fa() As String
Dim i As Integer
Dim result As Range
sf = s.Formula
sf = Replace(sf, "=SERIES(", "")
fa = Split(sf, ",")
Set SeriesRange = Range(fa(2))
End Function
Sub x(c As Chart)
Dim sc As Series
Dim sr As Range
Set sr = SeriesRange(c.SeriesCollection(1))
sr.CurrentRegion.Interior.ColorIndex = xlNone
For Each sc In c.SeriesCollection
SeriesRange(sc).Interior.Color = sc.Interior.Color
Next sc
End Sub
在ThisWorkbook 对象模块中：
' Jacked from C Pearson http://www.cpearson.com/excel/Events.aspx '
Public WithEvents CHT As Chart
Private Sub CHT_Deactivate()
x CHT
End Sub
Private Sub Workbook_Open()
Set CHT = Worksheets(1).ChartObjects(1).Chart
End Sub
【讨论】：
您是否尝试过使用条件格式？
【讨论】：