Excel色彩渐变数据系列.pdfVIP

色彩渐变的数据系列 Excel 提供了两种颜色模式：常用的RGB 模式和本技巧使用的 HSL 模式。RGB 颜色 模式是指每一种颜色都是由红（R）、绿（G）、蓝（B）3 种颜色组成的。HSL 颜色模式是 指每一种颜色都是由色调（H）、饱和度（S ）、亮度（L）3 种颜色参数构成的。 在 HSL 颜色模式中，调整亮度（L）参数即可获得渐变的颜色效果，如图 1 所示。遗 憾的是 HSL 颜色模式只在自选图形、艺术字等对象中使用，Excel 图表对其并不支持。本 技巧通过VBA 代码将渐变的HSL 颜色转化为RGB 颜色，并设置为Excel 的标准颜色，最 后在图表的系列图形中应用渐变色。 图 1HSL 颜色模式 步骤1 添加HSL 颜色转化为RGB 颜色的Function 过程。单击Excel 菜单栏上的“工 具”→“宏”→“Visual Basic 编辑器”命令，或者按Alt+F11组合键，打开VBA 编辑器。 在VBA 编辑器中单击菜单栏上的“插入”→“模块”命令，在弹出的 “模块1”代码窗口 中输入以下程序代码： Public Function HSL(ByVal H As Integer, ByVal S As Integer, ByVal L As Integer) As Long 将HSL 颜色转化为RGB 颜色. Dim pH, pS, pL, T1, T2 As Single Dim R, G, B, I As Integer Dim T3(0 To 2) pH = H / 255 pS = S / 255 pL = L / 255 If pS = 0 Then T3(0) = pL T3(1) = pL T3(2) = pL Else If pL 0.5 Then T2 = pL * (1 + pS) Else T2 = pL + pS - pL * pS T1 = 2 * pL - T2 T3(0) = pH + 1 / 3 T3(1) = pH T3(2) = pH - 1 / 3 For I = 0 To 2 If T3(I) 0 Then T3(I) = T3(I) + 1 If T3(I) 1 Then T3(I) = T3(I) - 1 Select Case T3(I) Case 0 To 1 / 6 T3(I) = T1 + (T2 - T1) * 6 * T3(I) Case 1 / 6 To 1 / 2 T3(I) = T2 Case 1 / 2 To 2 / 3 T3(I) = T1 + (T2 - T1) * ((2 / 3) - T3(I)) * 6 Case 2 / 3 To 1 T3(I) = T1 End Select Next I End If R = Int(T3(0) * 255) G = Int(T3(1) * 255) B = Int(T3(2) * 255) If R 0 Then R = 0 If G 0 Then G = 0 If B 0 Then B = 0 HSL = RGB(R, G, B) End Function 步骤2 添加将图表数据 “系列1”设置为渐变填充色的Sub 过程。 Sub 图表渐变色() 选择第一个图表 ActiveSheet.ChartObjects(1).Select 设置变量H 为0-250 中随机数 H = Int(Rnd * 250) 设置变量N 为所选图表的数据系列1 的数据点数 N = ActiveChart.SeriesCollection(1).Points.Count 设置当前工作簿的40种标准颜色为：以N 为基础色的渐变色 For I = 1 To 40 ActiveWorkbook.Colors(I) = HSL(H, 200, I * Int(250 / N)) Next