Sub data_labels()

Dim s As Series
Dim i As Integer

Set s = ActiveSheet.ChartObjects("Chart 1").Chart.FullSeriesCollection(1)

For i = 1 To s.Points.Count
s.Points(i).DataLabel.Width = 130
s.Points(i).DataLabel.Height = 15
s.Points(i).DataLabel.Left = s.Points(i).Left - 130
s.Points(i).DataLabel.Top = s.Points(i).Top - 8
Next i

End Sub