VBA在Excel中的应用（三）（16） - 豆豆网

　　可以手动给该图表添加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