多数据标签齐平如何操作

liujia6949 · 发表于 2023-11-22 15:14

电子表格的图表数据标签，由于数据不一样所以所有的标签是阶梯错落的。老板要求所有的蓝色数据标签成一条水平线，所有的橙色数据标签快成同一水平线上。不知道如何操作，我是一个个手动拖动。请教各位有快捷的方法没有。

工作簿2.rar (16.17 KB, 下载次数: 15)

cyh3230 · 发表于 2023-11-22 15:55

用散点或用插件
用插件最快
话说,VBA应该也行

liujia6949 · 发表于 2023-11-22 16:14

不知道vba如何编写

剑指E · 发表于 2023-11-22 16:34

插入数据表一目了然，为何非要数据标签？

david7911 · 发表于 2023-11-22 19:46

这老板变态啊，有了数据表，还要搞数据标签，搞了数据标签，还要移动到同一个水平

cyh3230 · 发表于 2023-11-22 21:28

liujia6949 发表于 2023-11-22 16:14
不知道vba如何编写

不难，计算好标签位置，然后同步到最高标签位就行

liujia6949 · 发表于 2023-11-23 08:49

cyh3230 发表于 2023-11-22 21:28
不难，计算好标签位置，然后同步到最高标签位就行

大神求vba代码

liujia6949 · 发表于 2023-11-23 08:50

cyh3230 发表于 2023-11-22 21:28
不难，计算好标签位置，然后同步到最高标签位就行

大神求vba代码

493861364 · 发表于 2023-11-23 17:10

录制宏，改吧改吧，仅供参考

Sub 宏1()
'
' 宏1 宏
ActiveSheet.ChartObjects("图表 1").Activate

n = ActiveChart.FullSeriesCollection(1).Points.Count
ActiveChart.FullSeriesCollection(1).DataLabels.Select
For i = 2 To n
ActiveChart.FullSeriesCollection(1).Points(i).DataLabel.Select
Selection.Top = ActiveChart.FullSeriesCollection(1).Points(1).DataLabel.Top
Next

n = ActiveChart.FullSeriesCollection(2).Points.Count
ActiveChart.FullSeriesCollection(2).DataLabels.Select
For i = 2 To n
ActiveChart.FullSeriesCollection(2).Points(i).DataLabel.Select
Selection.Top = ActiveChart.FullSeriesCollection(2).Points(1).DataLabel.Top
Next

End Sub

493861364 · 发表于 2023-11-23 17:14

本帖最后由 493861364 于 2023-11-23 17:17 编辑

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

[求助] 多数据标签齐平如何操作