グラフにデータラベルを付ける
手動でグラフを描画し、このプロットごとにラベルを付けようとすると苦労します。
ところがVBAを利用するとプロット一つづつに任意の文字列を自由にラベルに付けられます。ラベルを表示する位置も指定できます。
下記はこのコード例です。
With ActiveChart.SeriesCollection(1).Points
For i = 2 To LastRow - 2
'ラベルとして表示する文字列を取得する
strLabel = Workbooks(GraphBookName).Sheets("graph").Cells(2, 2)
For i = 2 To LastRow - 2
'ラベルとして表示する文字列を取得する
strLabel = Workbooks(GraphBookName).Sheets("graph").Cells(2, 2)
With .Item(i - 1) ' Itemとはプロットのこと
.HasDataLabel = True 'データラベルを表示します
.dataLabel.Text = strLabel '任意の文字列をラベルにできる
.dataLabel.Interior.Color = QBColor(11)
.dataLabel.Font.Size = 12 'Fontサイズ変更
.dataLabel.Top = .dataLabel.Top + 50 'ラベルの表示位置指定
.Border.LineStyle = xlDash '枠線種類指定
End With
Next i
End With
.HasDataLabel = True 'データラベルを表示します
.dataLabel.Text = strLabel '任意の文字列をラベルにできる
.dataLabel.Interior.Color = QBColor(11)
.dataLabel.Font.Size = 12 'Fontサイズ変更
.dataLabel.Top = .dataLabel.Top + 50 'ラベルの表示位置指定
.Border.LineStyle = xlDash '枠線種類指定
End With
Next i
End With