Hi micahel
try this

Sub position_labels()
For Each ss In ActiveChart.SeriesCollection
values_array = ss.Values
For n = 1 To ss.Points.Count
If values_array(n) < 0 Then ss.Points(n).DataLabel.Position
xlLabelPositionInsideBase Else ss.Points(n).DataLabel.Position
xlLabelPositionOutsideEnd
Next
Next
End Su

--
Message posted from http://www.ExcelForum.com