从此告别手动调整数据标签的苦日子
各位表哥表姐们，今天我们来聊一个让人又爱又恨的话题——图表的数据标签。
说它可爱吧，确实是数据可视化中不可或缺的一环，让枯燥的数据瞬间变得有血有肉。说它可恨吧……你们有没有经历过这样的场景：
场景一： 老板说“小王啊，这个饼图每个扇区旁边能不能标上具体数值啊？”你默默右键添加数据标签，然后发现数值挤在一起像早高峰的地铁，你开始一个个拖动……
场景二： 月度报告，20个图表，每个都要在柱子上方显示百分比。你一边操作一边想：我这手速，去电竞比赛估计能拿个名次。
场景三： 客户说“这个标签能不能统一放在柱子顶部内侧？算了还是外侧吧？要不带个引线？”你微笑着回答“好的我调整一下”，内心OS：你信不信我顺着网线爬过去给你贴个标签？
今天，我就要带大家用VBA这个“救世主”，彻底摆脱这些噩梦。
DataLabel 对象：你其实是个“社恐”吧？
首先，让我们认识一下今天的主角——DataLabel 对象。
每个图表系列中的数据点都有一个对应的DataLabel。如果你有10个数据点，那你就有10个DataLabel对象，它们各自独立，可以分别设置格式、位置、内容。
' 举个栗子：获取第一个图表中第一个系列的第一个数据点的数据标签
Dim dl As DataLabel
Set dl = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points(1).DataLabel
用过的朋友都知道，DataLabel就像个“社恐”——你不主动找它，它绝不主动出现。而且一旦出现，还总想往别人身上靠（自动位置那个飘忽不定啊）。
批量操作：一次性搞定所有标签
既然单个标签这么调皮，那我们就来个“群聊”模式：
Sub 批量添加数据标签()
Dim cht As Chart
Dim srs As Series
Dim pt As Point
' 获取当前活动图表
Set cht = ActiveSheet.ChartObjects(1).Chart
' 遍历所有系列
For Each srs In cht.SeriesCollection
' 遍历系列中的所有数据点
For Each pt In srs.Points
With pt.DataLabel
' 显示数值
.ShowValue = True
' 清除默认显示的系列名称等
.ShowSeriesName = False
.ShowCategoryName = False
' 设置字体大小
.Format.TextFrame2.TextRange.Font.Size = 10
' 设置位置为居中
.Position = xlLabelPositionCenter
End With
Next pt
Next srs
MsgBox "标签添加完毕，是不是比手动快多了？"
End Sub
这段代码就是你的“标签大总管”，一个命令下去，所有标签规规矩矩站好队。
位置不够？让标签“灵活就业”
最让广大表哥表姐头疼的，莫过于标签位置问题。柱状图柱子太矮，标签叠在一起；饼图扇区太小，标签无处安放。
这时候，我们要学会“因地制宜”：
Sub 智能标签位置()
Dim cht As Chart
Dim srs As Series
Dim pt As Point
Dim dVal As Double
Set cht = ActiveSheet.ChartObjects(1).Chart
Set srs = cht.SeriesCollection(1)
For Each pt In srs.Points
dVal = pt.DataLabel.Text ' 获取数值
With pt.DataLabel
' 根据数值大小决定标签位置
If dVal > 80 Then
' 数值大的放柱子顶部外侧（更醒目）
.Position = xlLabelPositionOutsideEnd
.Format.TextFrame2.TextRange.Font.Bold = True
.Format.TextFrame2.TextRange.Font.ForeColor.RGB = RGB(255, 0, 0)
ElseIf dVal < 20 Then
' 数值小的放柱子底部内侧，不占用空间
.Position = xlLabelPositionInsideBase
.Format.TextFrame2.TextRange.Font.Size = 8
Else
' 中间的放柱子中间
.Position = xlLabelPositionCenter
End If
End With
Next pt
MsgBox "标签已根据数值大小智能排位！"
End Sub
这就像给每个标签做了“职业规划”——能力强的（数值大）站C位，能力弱的（数值小）就低调点。
自定义内容：让标签“会说话”
默认的标签只能显示数值、系列名或类别名，但实际工作中，我们经常需要显示更丰富的内容，比如“增幅+12%”、“完成率85%”、“排名第3”等等。
这时候，我们就要动用VBA的终极武器——自定义公式：
Sub 自定义标签内容()
Dim cht As Chart
Dim srs As Series
Dim pt As Point
Dim i As Integer
Dim 实际值 As Range
Dim 目标值 As Range
Dim 完成率 As Double
Set cht = ActiveSheet.ChartObjects(1).Chart
Set srs = cht.SeriesCollection(1)
Set 实际值 = Range("B2:B13") ' 假设实际值在B列
Set 目标值 = Range("C2:C13") ' 目标值在C列
i = 1
For Each pt In srs.Points
完成率 = 实际值.Cells(i, 1) / 目标值.Cells(i, 1)
With pt.DataLabel
' 显示自定义文本：实际值 + 完成率
.Text = 实际值.Cells(i, 1) & vbCrLf & _
"(" & Format(完成率, "0%") & ")"
.ShowValue = False ' 关掉默认的数值显示
.Position = xlLabelPositionOutsideEnd
' 给超额完成的加点特效
If 完成率 >= 1 Then
.Format.TextFrame2.TextRange.Font.Bold = True
.Format.TextFrame2.TextRange.Font.ForeColor.RGB = RGB(0, 176, 80)
ElseIf 完成率 < 0.8 Then
.Format.TextFrame2.TextRange.Font.ForeColor.RGB = RGB(255, 0, 0)
End If
End With
i = i + 1
Next pt
MsgBox "标签会说话啦！超额完成的都绿了，不达标的红了~"
End Sub
看看，原来只能显示“85”的标签，现在能说“85 (106%)”，还带红绿灯效果，老板看了都得给你加鸡腿。
进阶技巧：一键美化所有图表
最后一个大招，假设你的工作簿里有20张图表，每张都要统一格式。一个个改？那得改到天荒地老。
Sub 一键美化所有图表()
Dim ws As Worksheet
Dim chtObj As ChartObject
Dim srs As Series
Dim pt As Point
Dim 美化数量 As Integer
美化数量 = 0
' 遍历所有工作表
For Each ws In ActiveWorkbook.Worksheets
' 遍历工作表中的所有图表
For Each chtObj In ws.ChartObjects
With chtObj.Chart
' 统一字体
.ChartArea.Format.TextFrame2.TextRange.Font.Size = 9
.ChartArea.Format.TextFrame2.TextRange.Font.Name = "微软雅黑"
' 统一背景色（浅灰）
.ChartArea.Format.Fill.ForeColor.RGB = RGB(245, 245, 245)
' 遍历所有系列
For Each srs In .SeriesCollection
' 统一系列边框
srs.Format.Line.Weight = 1
' 为每个数据点添加标签
For Each pt In srs.Points
With pt.DataLabel
.ShowValue = True
.ShowSeriesName = False
.Position = xlLabelPositionOutsideEnd
' 给标签加个半透明白色背景，避免和柱子颜色混在一起
.Format.Fill.Visible = msoTrue
.Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Format.Fill.Transparency = 0.3
.Format.Line.Visible = msoFalse
End With
Next pt
Next srs
End With
美化数量 = 美化数量 + 1
Next chtObj
Next ws
MsgBox "大功告成！已美化" & 美化数量 & "个图表，现在可以自信地发给老板了！"
End Sub
这段代码堪称“图表整形医生”，无论你的图表之前长得多磕碜，一键下去全部整容，统一风格，专业度直接拉满。
写在最后
DataLabel这个对象，说简单也简单，说复杂也复杂。掌握了它，你就掌握了图表可读性的灵魂。
记住几个要点：
批量操作比一个个点省10086倍时间
位置要智能，根据数据大小动态调整
内容要丰富，别局限于默认选项
格式要统一，体现专业度
下次老板再让你调整标签，你只需要优雅地按下Alt+F8，选中对应的宏，回车，然后端起咖啡喝一口，淡淡地说：“稍等，程序在跑。”
相信我，那一刻，你就是办公室里最靓的仔！
