求求了求求了，Excel图表的数据标签怎样批量挪动位置

果子麦子

如图，同一个系列下的所有数据标签批量选中后怎么能批量下移一些呢，如果是同一个类别下的所有所有数据标签呢，先说声谢谢！！

xiaojia8211

chartlabel 插件  解除您的烦恼

xiaojia8211

VBA 方法同样适用

Sub FindLblSize()
    Dim n
    Dim Lbl As DataLabel

    Dim Cht As Object

    Dim chartWd, chartHt

    Dim OldTop, OldLeft

    Dim LblWd, LblHt
   
    Set Cht = ActiveChart   '执行此宏前先选择要操作的图表
   
    For n = 1 To 5  '移动多少个点
    Set Lbl = Cht.SeriesCollection(1).Points(n).DataLabel   '(1)移动哪个数据系列
    Lbl.Top = Lbl.Top - 20  '20  Y轴方向移动多少
    Lbl.Left = Lbl.Left - 10    'X轴方向移动多少
    Next

End Sub

果子麦子

xiaojia8211 发表于 2022-1-6 19:57
chartlabel 插件  解除您的烦恼

谢谢啦，如果office原生不带这个功能，我先手动调吧

xiaojia8211

VBA方法


Sub FindLblSize()
    Dim n
    Dim Lbl As DataLabel

    Dim Cht As Object

    Dim chartWd, chartHt

    Dim OldTop, OldLeft

    Dim LblWd, LblHt
   
    Set Cht = ActiveChart   '执行此宏前先选择要操作的图表
   
    For n = 1 To 5  '移动多少个点
    Set Lbl = Cht.SeriesCollection(1).Points(n).DataLabel   '(1)移动哪个数据系列
    Lbl.Top = Lbl.Top - 20  '20  Y轴方向移动多少
    Lbl.Left = Lbl.Left - 10    'X轴方向移动多少
    Next

End Sub

wangg913

xiaojia8211 发表于 2022-1-6 20:23
VBA方法

将标签与系列平齐应该就行。

1.     Dim srs As Series
   
2.     Dim poi As Point
   
3.     Set srs = Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1)
   
4.     For Each poi In srs.Points
   
5.         poi.DataLabel.Top = poi.Top
   
6.     Next

复制代码

xiaojia8211

wangg913 发表于 2022-1-7 11:14
将标签与系列平齐应该就行。

代码既简捷又实用