Sub Macro1()
Dim i As Integer
ActiveSheet.ChartObjects("Chart 1").Activate
For i = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(i).DataLabels.Font
.Bold = True
.Name = "Arial"
.Size = 10
End With
Next
End Sub
Run-time error '1004':
Unable to get the Font property of the Datalabels class
[end] [debug] [help]
Sub Macro1()
Dim i As Integer
For i = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(i)
.HasDataLabels = True
.DataLabels.Font.Bold = True
.DataLabels.Font.Size = 10
.DataLabels.Font.Name = "Arial"
End With
Next
End Sub