您可以为此使用自定义代码。
在
|
代码
,可以粘贴以下代码:
Private colourPalette As String() = {"#418CF0", "#FCB441", "#DF3A02", "#056492", "#BFBFBF", "#1A3B69", "#FFE382", "#129CDD", "#CA6B4B", "#005CDB", "#F3D288", "#506381", "#F1B9A8", "#E0830A", "#7893BE"}
Private count As Integer = 0
Private mapping As New System.Collections.Hashtable()
Public Function GetColour(ByVal groupingValue As String) As String
If mapping.ContainsKey(groupingValue) Then
Return mapping(groupingValue)
End If
Dim c As String = colourPalette(count Mod colourPalette.Length)
count = count + 1
mapping.Add(groupingValue, c)
Return c
End Function
这将给你的选择粉彩调色板。如果您想要其他颜色,只需用您选择的值替换十六进制颜色代码。
=Code.GetColour(Fields!Thingy.Value)
在序列和标签填充表达式中使用此选项。这将确保两种颜色相同。如果在中有多个具有相同值的图形,这也将确保跨多个图形的相同数据系列始终具有相同的颜色。