データ系列の各要素にデータラベルを追加して対応する値を表示するには

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

１．系列を選択して”データラベル”−”値を表示する”を選択

　　※この場合にはすべての要素にラベルが表示されます。

２．各要素ごとに選択して、個別に指定

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

それぞれVBAで行うと・・・

１．系列ごとのデータラベルの表示

ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) _
	.HasDataLabels = True

２．個別指定のデータラベルの表示

　※サンプルでは5つおきにデータラベルを表示させ、同時にフォントなどの
　　書式設定を行います。

Sub DisplayDataLabel()

    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points
    
    For i = 5 To .Count Step 5
    
        With .Item(i)
        .HasDataLabel = True 'データラベル表示
        .DataLabel.Interior.Color = vbRed '色指定
        .DataLabel.Font.Size = 11 'Fontサイズ変更
        .Border.LineStyle = xlDash '枠線指定
        End With
    
    Next i
    
    End With

End Sub