Is there a way to add a callout label to a point in a chart, without using select?

Is there a way to add a callout label to a point in a chart, without using Select?

Recording a macro, I got this:

Sub Macro9()
    ActiveSheet.ChartObjects("SPC").Activate
    ActiveChart.FullSeriesCollection(1).Select
    ActiveChart.FullSeriesCollection(1).Points(4).Select
    ActiveChart.SetElement (msoElementDataLabelCallout)
End Sub

But I would rather like to avoid using Select. I tried simply using the SetElement-method on the point, but that failed. Using the HasDataLabel = True-method simply adds a datalabel.

Is there any workarounds to selecting the point and then using SetElement on the chart, or will I have to settle for something resembling the above macro?