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

micch

每个形状指定同一个宏即可

1. Dim sp0 As Shape
   
2. '---形状点击执行的宏
   
3. Sub TestClick()
   
4.     s0$ = Application.Caller
   
5.     '---显示点击形状对应地名和形状设置颜色的宏（公共变量对前一个点击的形状恢复颜色）
   
6.     Range("F3").Value = s0
   
7.     If Not sp0 Is Nothing Then sp0.Fill.ForeColor.RGB = &HCCFFF2
   
8.     Set sp0 = Shapes(s0)
   
9.     '---B列地名，C列数据并设置地名对应的颜色
   
10.     Set Rng = Range("C" & Application.WorksheetFunction.Match(s0, Columns(2), 0))
    
11.     sp0.Fill.ForeColor.RGB = Rng.Interior.Color
    
12. End Sub
    
13. 
    

复制代码

493861364

micch 发表于 2022-8-22 10:58
每个形状指定同一个宏即可

厉害！！！                     

micch

[url=【地图显示信息】 https://www.bilibili.com/video/B ... 6bae3be1b5babc77410]北京地图，点击着色+显示信息[/url]

加个文本框显示一些数据，再加个api就可以做成鼠标滑过显示信息了，不过太麻烦，效果又没网页版好。
现在WPS支持JS，echart的图表效果要比这种做法舒服的多

micch

用形状比用图表要省事，计算一下各个数据和最大值的比例，设置圆的大小，然后对齐居中即可

1. Sub Main()
   
2.     Application.Calculation = xlCalculationManual
   
3.     With Sheet1
   
4.         .Calculate
   
5.         ar = .Range("b2:g7").Value
   
6.         t = .Shapes("Leval1").Top
   
7.         h = .Shapes("Leval1").Height
   
8.         For i = 3 To 6
   
9.             b = ar(i, 6)
   
10.             h0 = h * b
    
11.             .Shapes(i - 1).Height = h0
    
12.             .Shapes(i - 1).Width = h0
    
13.             .Shapes(i - 1).Top = t + h - h0
    
14.         Next
    
15.         With .Shapes.Range(Array("Leval1", "Leval2", "Leval3", "Leval4", "Leval5"))
    
16.             .Align msoAlignCenters, msoFalse
    
17.             .Align msoAlignBottoms, msoFalse
    
18.             .IncrementTop Sheet1.Range("J3").Top - Sheet1.Shapes("Leval1").Top
    
19.             .IncrementLeft Sheet1.Range("J3").Left - Sheet1.Shapes("Leval1").Left
    
20.         End With
    
21.     End With
    
22.     Application.Calculation = xlCalculationAutomatic
    
23. End Sub
    

复制代码

493861364

micch 发表于 2022-8-23 01:43
用形状比用图表要省事，计算一下各个数据和最大值的比例，设置圆的大小，然后对齐居中即可

已经超600楼了

这种奇奇怪怪的图表用形状做确实简单、粗暴
向老师学习！

cuilihui501

大神，可以用代码做一个桑基图吗，多级的，大家肯定喜欢

micch

感觉用处不多，之前用公式做过，很久没再做了。有空了试试吧

[url=做了一个简单的桑基图模板 https://club.excelhome.net/thread-1530447-1-1.html (出处: ExcelHome技术论坛)]桑基图公式[/url]

Carlwantsmore

micch 发表于 2019-4-25 21:28
学习版主老师，练习一下

在论坛翻找了一下午，还是不知道怎么解这个图，请问一下，旁边的辅助数据完成后是用什么图实现的？尝试用堆叠柱形图和堆叠面积图都没实现，轴那一列是用来绘制散点图的？
了解到可以用堆叠柱形图覆盖堆叠面积图，但是做起来对齐有一些问题还是不能达到效果，还望提点一下，谢谢

micch

Carlwantsmore 发表于 2022-8-25 17:28
在论坛翻找了一下午，还是不知道怎么解这个图，请问一下，旁边的辅助数据完成后是用什么图实现的？尝试用 ...

https://club.excelhome.net/forum ... 31&pid=11022227
这里有wb_1027老师的附件，你可以参考一下。


我有录屏过，不过感觉讲的不是很详细，姑且看看，现在比较忙，没时间重新录。
https://club.excelhome.net/forum ... 31&pid=11026114

493861364

micch 发表于 2022-8-25 20:21
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1471631&pid=11022227
这里有w ...

学习了论坛里各种的桑基图，原理大概看明白了，自己就是搞不出来，彻底放弃了