Excel chart - Data labels, word wrap OFF

[Formula11]

Is there a way, using VBA code, to ensure there is no word wrap in data labels.
What I have below does not work.

    'Activate chart
    ActiveSheet.ChartObjects("Chart 1").Activate
    'Data range
    ActiveChart.SetSourceData Source:=Range(Cells(1, 1), Cells(5, 5))
    'Data labels - aiming to not wrap text
    ActiveChart.SeriesCollection(1).DataLabels.Format.WordWrap = msoFalse

 

[Formula11]

Bumping up.

 

[Formula11]

Bumping up again.

 

[Formula11]

Another try.