Try this as a starter .......

Sub PositionLabels()
Dim x As Integer
With ActiveSheet.ChartObjects("Chart 1").Activate
For x = 1 To 12
With ActiveChart.SeriesCollection(1).Points(x).DataLabe l
Select Case Left(.Text, 1)
Case Is = "S": .Position = xlLabelPositionAbove
Case Is = "B": .Position = xlLabelPositionBelow
Case Else: .Position = xlLabelPositionCenter
End Select
End With
Next
End With
End Sub

--

Regards,
Nigel




"EE" wrote in message
...
Hi

I have a Line Chart with one series. I have added the labels to this
series. All labels start with B or S. I need all labels starting with
S to be above the line and alls tarting with B below the line.

Is it possible to create a macro that can do this?

The labels area all in a separte column and are a concatenation of
text (B or S) and some percentages.

Best
Prasad