VBA实战技巧24：调整图表数据标签的位置

excelperfect

有时候，在Excel中绘制的图表会出现数据标签重叠的情形，不便于查看，如下图1所示。

图1

此时，可以手工拖动数据标签来进行位置调整，也可以使用VBA代码来自动调整。

首先，了解一下图表坐标体系。如下图2所示，展示了将数据标签移到图表区域的右下角时的情形。图表坐标的原点（0,0）在图表区域的左上角。

图2

使用VBA时，

Wd=ChartArea.Width

Ht=ChartArea.Height

数据标签（DataLabel对象）的Top属性和Left属性可以取得其左上角的x和y值。那么，可以计算出数据标签的高度和宽度为：

h = Ht – y

w = Wd - x

这样，编写的VBA代码如下：

Sub FindLblSize()

    Dim Lbl As DataLabel

    Dim Cht As Object

    Dim chartWd, chartHt

    Dim OldTop, OldLeft

    Dim LblWd, LblHt

    Set Cht =ActiveChart

    Set Lbl =Cht.SeriesCollection(1).Points(3).DataLabel

   '获取图表区的高度和宽度

    chartWd =Cht.ChartArea.Width

    chartHt =Cht.ChartArea.Height

   '存储数据标签原位置

    OldTop =Lbl.Top

    OldLeft =Lbl.Left

   '试图移动数据标签

   '左上角与图表区域右下角重合

    Lbl.Top =chartHt

    Lbl.Left= chartWd

   '计算标签尺寸

    LblWd =chartWd - Lbl.Left

    LblHt =chartHt - Lbl.Top

    MsgBox'标签大小: 宽度 = ' &LblWd & '    高度 = ' &LblHt

   '移动重叠标签使之错开

    Lbl.Left= OldLeft

    Lbl.Top =Cht.SeriesCollection(1).Points(2).DataLabel.Top - LblHt

End Sub

在工作表中选择图表，运行FindLblSize过程，结果如下图3所示。

图3

小结：由于可以手动拖动数据标签来调整其位置，上述代码看似用处不大，但是其演示的技术可以帮助我们了解图表布局和相关对象属性，并且在以编程方式检查一系列重叠的数据标签并需要处理时，上述代码是一个基础。

注：本文学习整理自mrexcel.com，供有兴趣的朋友学习参考。