HOME > 即効テクニック > Excel VBA > グラフ関連のテクニック > Chartの操作−データ要素の値を表示する

即効テクニック
グラフ関連のテクニック

Chartの操作−データ要素の値を表示する

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

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

    

  1. 系列を選択して”データラベル”−”値を表示する”を選択
　　※この場合にはすべての要素にラベルが表示されます。
    2. 

  2. 各要素ごとに選択して、個別に指定


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

それぞれ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
ビジネス統計スペシャリスト VBAエキスパート