神马文学网VBA在Excel中的应用（三）（16） - 豆豆网
来源：百度文库 编辑：神马文学网 时间：2024/07/03 12:41:29
VBA在Excel中的应用（三）
http://tech.ddvip.com 2009年06月17日 来源：博客园 作者：Jaxu 收藏本文 -可以手动给该图表添加Data Labels，方法是选中任意的series，右键选择Add Data Labels。如果想要为所有的series添加Data Labels，则需要依次选择不同的series，然后重复该操作。
Excel中可以通过VBA将指定Cells Range中的值设置到Chart的Data Labels中，上面的代码就是一个例子。程序执行的时候会首先弹出一个提示框，要求用户通过鼠标去选择一个单元格区域以获取到Cells集合（或者直接输入地址），如下图：
注意VBA中输入型对话框Application.InputBox的使用。在循环中将Range中的值添加到Chart的Data Labels中。
4. 一个使用VBA给Chart添加Data Labels的例子
Sub AddDataLabels()
Dim seSales As Series
Dim pts As Points
Dim pt As Point
Dim rngLabels As range
Dim iPointIndex As Integer
Set rngLabels = range("B4:G4")
Set seSales = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
seSales.HasDataLabels = True
Set pts = seSales.Points
For Each pt In pts
iPointIndex = iPointIndex + 1
pt.DataLabel.text = rngLabels.cells(iPointIndex).text
pt.DataLabel.font.bold = True
pt.DataLabel.Position = xlLabelPositionAbove
Next pt
End Sub
系列文章：
VBA在Excel中的应用（一）
VBA在Excel中的应用（二）
上一页78910111213141516