データラベルを設定する

---

折れ線グラフにデータラベルを表示するのは、棒グラフにデータラベルを表示するのと同じ考え方です。

棒グラフにデータラベルを設定する

Sub Sample()
    Dim i As Long
    With ActiveSheet.ChartObjects(1).Chart
        For i = 1 To .SeriesCollection.Count
            .SeriesCollection(i).HasDataLabels = True
        Next i
    End With
End Sub

データラベルの位置は、Positionプロパティに、次の定数を指定します。

定数	値	意味
xlLabelPositionCenter	-4108	中央
xlLabelPositionLeft	-4131	左
xlLabelPositionRight	-4152	右
xlLabelPositionAbove	0	上
xlLabelPositionBelow	1	下

Excel 2003のコードは動くか

Excel 2003で、折れ線グラフにデータラベルを表示すると、次のようなコードが記録されます。

Sub Macro()
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
        False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
        ShowPercentage:=False, ShowBubbleSize:=False
End Sub

このコードは、Excel 2007でも問題なく動作します。