A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Let's say that the path and filename for your images are located in the corresponding cells one column to the right of the series values, replace...
For Counter = 1 To Range(xVals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
Next Counter
with
For Counter = 1 To Range(xVals).Cells.Count
With ActiveChart.SeriesCollection(1).Points(Counter)
.HasDataLabel = True
With .DataLabel.Format.Fill
.UserPicture Range(xVals).Cells(Counter, 1).Offset(0, 1).Value
.Visible = msoTrue
End With
End With
Next Counter
Hope this helps!