共4 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]条形图颜色填充

1楼

lgj716330 发表于：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

2楼

有点蓝 发表于：2024/10/6 11:05:00

没看懂【让配色方案仍保持对其他形状的影响】指什么，截图说明一下

3楼

lgj716330 发表于：2024/10/6 15:57:00

如下图中对最大和最小值设置了不同颜色，希望上方的配色方案的选择能对图中黄色部分仍然有效

此主题相关图片如下：微信图片_20241006155519.png

4楼

有点蓝 发表于：2024/10/7 9:50:00

这个没有办法，只能全部自定义颜色

共4 条记录, 每页显示 10 条, 页签: [1]