To all experienced VBA programmer

I can not think of anything to solve my problem and would need your
help.

Situation:
------------
Chart with two series
x: 1 2 3 4 5 6
y: 5 1 6 3 8 9

Problem:
-----------
Chart DataLabels must be positioned according to the date value, i.e
high value xlLabelPostionAbove, low value xlLablePositionBelow.

Ex: x=1, y=5. y (label) value should be above, x below
Ex: x=5, y=8. x (label) value should be above, y below


Exel Contrains
------------
Looks like Excel can only position the xlLabelPosition by
SeriesCollection, rather than individual (label) value.

Recorded Macro

ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionAbove
.Orientation = xlHorizontal
End With


Would appreciate of you guys can think of somthing and share.