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

tspliu

如果现实中见到这样的图表大神，我估计控制不住我的膝盖，这随手就弄这么漂亮，天生艺术细胞啊。。

micch

百分比进度

micch

简单做一个练习

micch

最近多了好几个做看板的贴，也练习一下

micch

数据关联一下

02761752696

micch 发表于 2023-5-31 12:49
数据关联一下

真漂亮

这个波浪怎么做的啊，能分享下不？
我只能做一条线的

micch

02761752696 发表于 2023-5-31 16:02
真漂亮

这个波浪怎么做的啊，能分享下不？

正弦曲线，用自由曲线按正弦曲线+圆的坐标点，画封闭路径。画的形状

1. Private Sub AddShape(sht As Worksheet, ar)
   
2.     Dim K%, n%
   
3.     n = UBound(ar)
   
4.     With sht.Shapes.BuildFreeform(1, ar(1, 1), ar(1, 2))
   
5.         For K = 1 To n
   
6.             .AddNodes 0, 1, ar(K, 1), ar(K, 2)
   
7.         Next
   
8.         With .ConvertToShape
   
9.             .Fill.ForeColor.RGB = vbBlue / 32
   
10.             .Line.Weight = 1
    
11.             .Line.InsetPen = True
    
12.             .Name = "Form" & n - 1
    
13.         End With
    
14.     End With
    
15. End Sub
    

复制代码

eh864166675

看着好高大上，感谢楼主分享

493861364

micch 发表于 2023-5-31 16:27
正弦曲线，用自由曲线按正弦曲线+圆的坐标点，画封闭路径。画的形状

有代码都看不懂，看来需要学习的还有很多

micch

回头单独写个代码，好像以前发过了，但是帖子太长，找不到了