![Excel 折线图多个相关系列,着色](https://linux22.com/image/1331297/Excel%20%E6%8A%98%E7%BA%BF%E5%9B%BE%E5%A4%9A%E4%B8%AA%E7%9B%B8%E5%85%B3%E7%B3%BB%E5%88%97%EF%BC%8C%E7%9D%80%E8%89%B2.png)
我正在使用 MS Excel 2010。
我有一张像这样的工作表
---/ 1001 / 1002 / 1003 / 1101 / 1102 / 1201 / 1202 / 1203 / 1204
R2 / ...
R3 / ...
...
我想创建一个折线图,其中每列是一个系列但有颜色,以便所有具有相同前两位数字的系列都是相同的颜色但不同的色调(因此 10** 将全部为红色(比如说)但红色色调越来越浅)。
有什么建议吗?感谢您的帮助。
答案1
您可以使用类似这样的方法:
Sub ColorLines()
Dim objSeries As series
Dim strLastDigits As String
Dim lngColorIndex As Long
lngColorIndex = 2
strLastDigits = ""
For Each objSeries In Diagramm1.SeriesCollection
If Left(objSeries.Name, 2) <> strLastDigits Then
'set new color
lngColorIndex = lngColorIndex + 1
objSeries.Border.ColorIndex = lngColorIndex
Else
'set shade of current color
If objSeries.Border.Color > 50 Then
objSeries.Border.Color = objSeries.Border.Color - 50
End If
End If
strLastDigits = Left(objSeries.Name, 2)
Next objSeries
End Sub
但是 - 自动化阴影和着色的具体算法取决于您;)
这只是一个例子,说明如何做到这一点。