偶尔兴致来了，练习一些图表，记录一下

493861364

返璞归真，实用就好

wb_1027

493861364 发表于 2022-10-15 10:17
返璞归真，实用就好

感觉像是一个的人的一生要花多少钱一样。
据报告统计：
一个中国人的一生的绝大部分积蓄，
将在生命的最后半年到三个月内花完。

493861364

wb_1027 发表于 2022-10-20 09:30
感觉像是一个的人的一生要花多少钱一样。
据报告统计：
一个中国人的一生的绝大部分积蓄，

哦，那大家都要多多储蓄，少花钱，都能长命百岁

micch

493861364

应该可以直接用代码，逐个数据点格式化颜色，简单暴躁

morpheus126

493861364 发表于 2022-11-10 10:30
应该可以直接用代码，逐个数据点格式化颜色，简单暴躁

那天本来想做个模型出来的。。。想想要动代码就懒的搞了

493861364

morpheus126 发表于 2022-11-10 11:03
那天本来想做个模型出来的。。。想想要动代码就懒的搞了

哈，代码就不搞了，人家插件还要卖钱呢

micch

493861364 发表于 2022-11-10 10:30
应该可以直接用代码，逐个数据点格式化颜色，简单暴躁

代码很简单，不过我呢就写的稍微复杂了点，其实简单一个循环就完成了

1. Option Base 1
   
2. Sub Main()
   
3.     Dim ch(3) As Chart, TitleText$
   
4.     Dim myColor&, i%, j%, k%
   
5.     With Sheet1
   
6.         Set ch(1) = .ChartObjects(1).Chart
   
7.         Set ch(2) = .ChartObjects(2).Chart
   
8.         Set ch(3) = .ChartObjects(3).Chart
   
9.         .Calculate
   
10.     End With
    
11.     For i = 1 To 3
    
12.         TitleText = ch(i).ChartTitle.Text
    
13.         k = Val(TitleText)
    
14.         With ch(i).SeriesCollection(1)
    
15.             For j = 1 To 100
    
16.                 If j > k Then
    
17.                         myColor = RGB(200, 200, 200)
    
18.                 Else
    
19.                         myColor = RGB(0, 255 - 200 * j / k, 0)
    
20.                 End If
    
21.                 With .Points(j)
    
22.                     .Format.Fill.ForeColor.RGB = myColor
    
23.                 End With
    
24.             Next
    
25.         End With
    
26.     Next
    
27. End Sub

复制代码

493861364

micch 发表于 2022-11-11 19:48
代码很简单，不过我呢就写的稍微复杂了点，其实简单一个循环就完成了

大侠v5      

morpheus126

micch 发表于 2022-11-11 19:48
代码很简单，不过我呢就写的稍微复杂了点，其实简单一个循环就完成了

myColor = RGB(0, 255 - 200 * j / k, 0)
闪光点。。。膜拜