- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]条形图颜色填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193703)
-- 发布时间：2024/10/5 23:00:00
-- [求助]条形图颜色填充
采用逛逛老兄的多彩条形图http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=66247&replyID=&skin=1设置条形图颜色，并进行了简单修改，仅对最大最小值形状设置不同颜色，有什么办法能让配色方案仍保持对其他形状的影响
函数部分修改如下：
Dim A As Double = Tables("图表测试数据").Compute("Max(本期销售)") \'计算最大值
Dim B As Double = Tables("图表测试数据").Compute("Min(本期销售)") \'计算最小值
Dim dr, dr2 As DataRow
dr = DataTables("图表测试数据").Find("[本期销售] = " & A & "") \'找到最大值的行
dr2 = DataTables("图表测试数据").Find("[本期销售] = " & B & "") \'找到最小值的行
Dim wz, wz2 As Integer
If dr IsNot Nothing Then
wz = Tables("图表测试数据").FindRow(dr) \'获取最大值的行号
End If
If dr2 IsNot Nothing Then
wz2 = Tables("图表测试数据").FindRow(dr2) \'获取最小值的行号
End If
If WZ > 0 And wz2 > 0 Then
Select Case X
Case wz + 1
ps.LineStyle.Color = Color.Green
Case wz2 + 1
ps.LineStyle.Color = Color.red
Case Else
ps.LineStyle.Color = Color.Gold
End Select
End If
-- 发布时间：2024/10/6 11:05:00
--
没看懂【让配色方案仍保持对其他形状的影响】指什么，截图说明一下
-- 发布时间：2024/10/6 15:57:00
--
如下图中对最大和最小值设置了不同颜色，希望上方的配色方案的选择能对图中黄色部分仍然有效
此主题相关图片如下：微信图片_20241006155519.png
-- 发布时间：2024/10/7 9:50:00
--
这个没有办法，只能全部自定义颜色