Bold series labels in a chart?

[TrippyTom]

What's the proper code to bold ALL series labels in a chart? I want to set them to Arial, 10 pt, Bold.

 

[vconfused]

Like this?

Sub Macro1()
Dim i As Integer
    
    For i = 1 To ActiveChart.SeriesCollection.Count
        With ActiveChart.SeriesCollection(i).DataLabels.Font
            .Bold = True
            .Name = "Arial"
            .Size = 10
        End With
    Next

End Sub

 

[TrippyTom]

Perfect, thanks vconfused.

I think this is exactly what I needed. I didn't know it would have to go in a loop. I was on the wrong track thinking there was a single object I could adjust instead of using a variable. Thanks a ton, this helps a lot.

 

[vconfused]

There might be, I can't find it though.

 

[TrippyTom]

hmm... this works at home (Excel 2003), but at work, we use Excel 2000 and it's not working. Does anyone know the proper syntax for it to work in that version?

 

[vconfused]

Should work, but with the code, it uses ActiveChart, so you have to click on the chart to select it before running the code, otherwise you will get an error.

If you do not want to click on the chart first, you could do something like:

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

 

[TrippyTom]

No, it doesn't.

I copied it directly into a new worksheet and had a generic chart selected to test it, ran the macro and it came up with an error message stating:

Run-time error '1004':
Unable to get the Font property of the Datalabels class
[end] [debug] [help]

NEVERMIND! It's because the chart had no labels. Is there a way I can force it to have labels first?

 

[TrippyTom]

Nevermind, I figured it out.

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

Thanks so much for your help! These discrepencies between 2000 and 2003 are gonna drive me insane!

 

[ESICorp]

Bolding Select Labels

Hi all-

Saw this post which is close to my problem.

How can I get only some labels bold (similar to conditional formatting for cells)?

My goal is to present 3 data series with labels using xy scatter and bold for values above a threshold for a 3rd.

Thanks,
Brian