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

micch

493861364 发表于 2023-9-7 11:25
用的形状，对齐总是差一点，手工调整半个柱子宽度，这种半成品搞得太多了

micch

12个长方形，6个左括号

1. Option Explicit
   
2. Option Base 1
   
3. 
   
4. Sub Main()
   
5.     Dim ar, i%, l#, t#, h#
   
6.     Dim shp As Shape, cr
   
7.     ar = RandomData(12)
   
8.     cr = Array(&HFFCC99, &HF6D0A2, &HEDD5AB, &HE4D9B4, &HDADEBE, &HD1E3C7, &HC8E7D0, &HBFECD9, &HB5F1E3, &HACF5EC, &HA3FAF5, &H99FFFF)
   
9.     With ActiveSheet
   
10.         Set shp = .Shapes("Rect1")
    
11.         t = shp.Top
    
12.         l = shp.Left
    
13.         shp.Width = ar(1)
    
14.         shp.Fill.ForeColor.RGB = cr(1)
    
15.         shp.TextFrame.Characters.Text = Format(1 & -1, "mmmm")
    
16.         For i = 2 To 12
    
17.             t = t + shp.Height + 15
    
18.             With .Shapes("Rect" & i)
    
19.                 .Left = l
    
20.                 .Top = t
    
21.                 .Width = ar(i)
    
22.                 .Fill.ForeColor.RGB = cr(i)
    
23.                 .TextFrame.Characters.Text = Format(i & -1, "mmmm")
    
24.             End With
    
25.         Next
    
26.         For i = 1 To 6
    
27.             Set shp = .Shapes("Rect" & i)
    
28.             h = .Shapes("Rect" & 13 - i).Top - shp.Top
    
29.             With .Shapes("Brac" & i)
    
30.                 .Left = l - .Width
    
31.                 .Top = shp.Top + shp.Height / 2
    
32.                 .Height = h
    
33.                 .Adjustments.Item(1) = 0.7
    
34.             End With
    
35.         Next
    
36.     End With
    
37.    
    
38. End Sub
    
39. Private Function RandomData(n0%)
    
40.     Dim ar, i%
    
41.     ReDim ar(n0)
    
42.     Randomize
    
43.     For i = 1 To n0
    
44.         ar(i) = Int(Rnd * 100) + 150
    
45.     Next
    
46.     RandomData = ar
    
47. End Function

复制代码

493861364

micch 发表于 2023-9-7 13:05

这么的严丝合缝，感谢大神分享代码，我要好好研究一下！

wb_1027

493861364 发表于 2023-9-7 11:17
这要是能写代码让大括号对齐每个柱子的中间就好了，试了试总是差一点，
有感兴趣的大神、老师路过的可以 ...

要是我就散点，一正一负，基本也算完美哈！

493861364

wb_1027 发表于 2023-9-7 21:19
要是我就散点，一正一负，基本也算完美哈！

散点图是不是还得用到贝塞尔曲线啊，不会构造数据
我是用的大括号和柱形图结合，括号大小解决的还可以，对齐的问题解决的不好

wb_1027

493861364 发表于 2023-9-8 10:05
散点图是不是还得用到贝塞尔曲线啊，不会构造数据
我是用的大括号和柱形图结合，括号大小解决的还可以， ...

构建图上的数据，我是设定的5条线

wb_1027

利用VBA，根据已有数据，做个玫瑰图，，，我来白嫖一下哈！

micch

493861364 发表于 2023-9-8 10:05
散点图是不是还得用到贝塞尔曲线啊，不会构造数据
我是用的大括号和柱形图结合，括号大小解决的还可以， ...

其实也不用贝塞尔曲线，你只需要设置好3个点，做散点连线，勾选光滑就自动生成曲线了。

我一直想做树图和关系图，就想这么搞，但是总是没时间

micch

micch 发表于 2023-9-8 17:07
其实也不用贝塞尔曲线，你只需要设置好3个点，做散点连线，勾选光滑就自动生成曲线了。

我一直想做树 ...

3个点效果不好控制，4个点效果就差不多了

493861364

wb_1027 发表于 2023-9-8 16:57
构建图上的数据，我是设定的5条线

是我想得复杂了，感谢老师指点哈