Data Label Object Position not working
 

I have the following code in a spreadsheet:

ActiveChart.SeriesCollection(i).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionAbove
.Orientation = xlDownward

I keep getting a run-time error '1004', application or
object defined error with the program reaches the line

.Position = xlLabelPositionAbove

but this seems to be the correct code. If I record a
macro, this is the code that is recorded, however it will
not run. I appreciate any help