【藏宝图碎片9】南丁格尔玫瑰图【微积分+3】

tracywuwei · 发表于 2020-5-11 15:04

上面的标签是怎么显示的，我找了找没找到

sly210 · 发表于 2020-9-3 15:45

谢谢楼主分享

rogerct · 发表于 2020-11-9 11:09

真是漂亮的图表。

清早不睡觉的 · 发表于 2021-1-12 23:51

这个图绝对是利器啊~~老板一看就喜欢

kouliang12 · 发表于 2021-1-13 17:27

数据标签手动无法添加？

lazinnig · 发表于 2021-1-20 14:26

支持！！！！

songsing · 发表于 2021-1-25 13:08

支持，学习一下

scnc001 · 发表于 2022-6-10 13:10

很漂亮，学习了

ning84 · 发表于 2023-2-24 09:01

分享几个南丁格尔玫瑰图-Excel图表与图形-ExcelHome技术论坛 - https://club.excelhome.net/thread-1628547-1-1.html

看了这个帖子，才知道有个南丁格尔玫瑰图一说。又要学习一个知识点。

ning84 · 发表于 2023-2-24 12:42

本帖最后由 ning84 于 2023-2-25 07:58 编辑

【Excel商务图表】南丁格尔玫瑰图表制作方法 http://www.360doc.com/content/22 ... 32_1044930952.shtml

下点功夫，把雷达图学会。制作南丁格尔玫瑰图表。
首先从xlPieExploded 69 分离型饼图开始，VBA测试，发现有12个SeriesCollection。结果是

xlPieExploded

69

分离型饼图。

Sub del()
Dim Chart As Chart
Dim oChart As ChartObject
For Each Chart In Charts
Debug.Print Chart.Name
Next Chart
Set Chart = Charts(1)
With Chart
Debug.Print .Name, .Shapes.Count, .SeriesCollection.Count, .ChartType
For ii = 1 To .SeriesCollection.Count
Debug.Print .SeriesCollection.Item(ii).ChartType
Next ii
Stop
End With
End Sub

复制代码

录制宏，有了编制分离并图的思路。

Sub Macro1()
'
Charts.Add
ActiveChart.ChartType = xlPieExploded
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "={1,10,50}"
ActiveChart.SeriesCollection(1).Name = "=""发"""
ActiveChart.SeriesCollection(1).Points(1).Select
With Selection.Border
.ColorIndex = 57
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Shadow = False
Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
With Selection
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 13
End With
ActiveChart.ChartArea.Select
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[图形图表] 【藏宝图碎片9】南丁格尔玫瑰图【微积分+3】