
Option Explicit
Sub Marius()
Dim c As Object
Dim a As String
Dim b As Integer
ActiveSheet.ChartObjects(1).Activate
For Each c In Range("A2:A10")
b = b + 1
a = c.Value
ActiveChart.SeriesCollection(1).Points(b).ApplyDataLabels AutoText:=True
ActiveChart.SeriesCollection(1).Points(b).DataLabel.Characters.Text = a
Next
Range("a1").Select
Set c = Nothing
End Sub
|
