如何使气泡图数据与图表刻度线一致

dengxingchang · 发表于 2021-4-24 19:08

493861364 发表于 2021-4-24 18:26
谢谢老师的指点
最开始提出这个问题是研究底边对齐的气泡图的做法，如图
本想着如果能控制气泡大小与对 ...

填充类的圆可以用雷达图来模拟，下面 13楼是一个例子，通过做多组同时外圆统一大小，可以得到你要的效果。

http://club.excelhome.net/thread-1422138-2-1.html

493861364 · 发表于 2021-4-24 19:55

dengxingchang 发表于 2021-4-24 19:08
填充类的圆可以用雷达图来模拟，下面 13楼是一个例子，通过做多组同时外圆统一大小，可以得到你要的效果 ...

把数据源构造好，图表的大部分问题都解决了，老师在这方面的造诣太高了！

wb_1027 · 发表于 2021-4-27 09:58

但气泡，受限于水平
大致做成这样的

1619488383(1).png

底边同时相切，且同轴

1619488435(1).png

单底边相切

或者两列同轴，用作相同项对比

493861364 · 发表于 2021-4-27 10:48

wb_1027 发表于 2021-4-27 09:58
但气泡，受限于水平
大致做成这样的

谢谢回复，老师使用的是哪种作图思路啊，能传一下附件吗，学习一下

wb_1027 · 发表于 2021-4-28 08:06

图表练习-气泡图进阶地平线上的气泡等.zip (240.57 KB, 下载次数: 6)

仅做参考

dengxingchang · 发表于 2021-4-28 09:11

wb_1027 发表于 2021-4-28 08:06
仅做参考

气泡图的 x、y、z三者之间应该没有线性的逻辑关系。

举例：图中x是序号（1、2、3 …… 的位置分别代表张无忌、殷敏 ……，y 是你设定的位置，z（气泡大小）是武力值。从定义可知，x、y、z 三个值都是你自己定义的，每个人定义都不一样，你这一刻和下一刻的定义也不一样，所以他们三者没有任何关系。

通过调节系数短时间达到相切，只是偶然，当数字出现变化，图又不相切。最根本的原因是出发点“线性逻辑关系”是不成立的。

493861364 · 发表于 2021-4-28 10:24

wb_1027 发表于 2021-4-28 08:06
仅做参考

多谢分享，下载学习！

493861364 · 发表于 2021-4-28 21:15

493861364 发表于 2021-4-24 18:26
谢谢老师的指点
最开始提出这个问题是研究底边对齐的气泡图的做法，如图
本想着如果能控制气泡大小与对 ...

Sub test()
maxindex = 1
minindex = 4
ActiveChart.Axes(xlValue).MinimumScale = 0
For i = 1 To 10000
ActiveChart.Axes(xlCategory).MaximumScale = ActiveChart.Axes(xlCategory).MaximumScale + i
s1 = ActiveChart.FullSeriesCollection(1).Points(maxindex).Left
s2 = ActiveChart.FullSeriesCollection(1).Points(minindex).Left
s3 = ActiveChart.FullSeriesCollection(1).Points(minindex).Width
s4 = s1 - s2
If s4 < s3 * 0.01 Then
Exit For
End If
Next
End Sub

复制代码

493861364 · 发表于 2021-4-28 23:06

493861364 发表于 2021-4-28 21:15

综合各位老师们的指点，在朋友的帮助下，写了几行代码，自动调整到左边对齐，希望各位完善

把循环调整分类轴坐标值的那行代码
ActiveChart.Axes(xlCategory).MaximumScale = ActiveChart.Axes(xlCategory).MaximumScale + i
，改为调整值坐标轴Axes(xlValue)的坐标值，就能调整到底边对齐
配合调整x\y的值，还可以达到气泡排成一行底边对齐或者一列左对齐的效果

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

[求助] 如何使气泡图数据与图表刻度线一致

评分

评分