機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > Excel 2007以降のグラフ

折れ線グラフにデータラベルを設定する



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


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でも問題なく動作します。





このエントリーをはてなブックマークに追加