How to add data label callouts in NewSeries with VBA

**tony7** · 08-03-2021, 11:53 PM

Hello, I am new to VBA Chart. Can anyone help me to see how to add data label callouts ( show as "[Value in X axis, Value in y axis]" in following NewSeries (MyNewSrs for my case) below? thank you!

Dim myChtObj As ChartObject
Set myChtObj = mysht.ChartObjects.Add(Left:=100, Width:=500, Top:=25, Height:=200)
Set MyNewSrs = myChtObj.Chart.SeriesCollection.NewSeries
With MyNewSrs
.Name = "Test1"
.DataLabels.Position = xlLabelPositionAbove
.Values = myArray1
.XValues = myArray2
.ChartType = xlXYScatter
.AxisGroup = xlPrimary
.MarkerStyle = xlMarkerStyleSquare
.MarkerSize = 5
.MarkerBackgroundColor = vbRed
End With
Set MyNewSrs = Nothing

**alansidman** · 08-03-2021, 11:58 PM

Administrative Note:

Welcome to the forum.

Unfortunately, this is a duplicate thread, and you are allowed only ONE thread per issue here.

Please see Forum Rule #5 about thread duplication.

I am closing this thread, but you may continue here in the original thread