Problem With Looping through Charts

[Fireredeel]

Hello I have attached my Code below. I keep getting the Run-Time error '424': Object Required on the code in the loop. Any help is greatly appreciated.

Sub p()


Dim cht As ChartObject
Dim sht As Worksheet
Dim CurrentSheet As Worksheet

Set CurrentSheet = ActiveSheet


For Each cht In ActiveSheet.ChartObjects


    ActiveChart.Axes(xlValue).TickLabels.Font.Color.RGB = RGB(60, 60, 60)
    ActiveChart.Axes(xlCategory).TickLabels.Font.Color.RGB = RGB(60, 60, 60)

   Next cht
End Sub

 

[MoshiM]

Hello I have attached my Code below. I keep getting the Run-Time error '424': Object Required on the code in the loop. Any help is greatly appreciated.

Did you mean to use activechart or did you intend cht?

For Each cht In ActiveSheet.ChartObjects

    With cht.Chart
    
        .Axes(xlValue).TickLabels.Font.Color = RGB(60, 60, 60)
        .Axes(xlCategory).TickLabels.Font.Color = RGB(60, 60, 60)
    
    End With

Next cht

 

[Fireredeel]

I want to update Multiple Charts on the Sheet that I am on. I tried you code and I know run into a problem Error 91: Object Bariable with block Varible not set. Sorry I am very new to VBA.

 

[MoshiM]

I want to update Multiple Charts on the Sheet that I am on. I tried you code and I know run into a problem Error 91: Object Bariable with block Varible not set. Sorry I am very new to VBA.

All you did was to substitute your For loop with mine in its entirety correct? I'm not getting any errors otherwise.

 

[Jon Peltier]

What is highlighted when you get the error? Maybe one of your charts does not have one of its axes.

 

[Fireredeel]

I want to update Multiple Charts on the Sheet that I am on. I tried you code and I know run into a problem Error 91: Object Bariable with block Varible not set. Sorry I am very new to VBA.

That worked! I tried to add Bolding. I am now getting error 438 with both of the lines that bold the lables

'
' graphaxiscolors Macro
' Change Graph axies Colors
'
' Keyboard Shortcut: Ctrl+Shift+Q
Sub LoopThroughCharts()


    Dim sht As Worksheet
    Dim cht As ChartObject
    Dim ser As Series
    Set CurrentSheet = ActiveSheet


For Each cht In ActiveSheet.ChartObjects


    With cht.Chart
    
        .Axes(xlValue).TickLabels.Font.Color = RGB(60, 60, 60)
        .Axes(xlCategory).TickLabels.Font.Color = RGB(60, 60, 60)
        .Legend.Format.TextFrame2.TextRange.Font.Color.RGB = RGB(60, 60, 60)
            If .Axes(xlValue).Selection.Format.TextFrame2.TextRange.Font.Bold = msoFalse Then
                .Axes(xlValue).Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
            If .Axes(xlCategory).Selection.Format.TextFrame2.TextRange.Font.Bold = msoFalse Then
                .Axes(xlCategory).Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
               If .Legend.Format.TextFrame2.TextRange.Font.Bold = msoFalse Then
                .Legend.Format.TextFrame2.TextRange.Font.Bold = msoTrue
    
    End With




Next cht


End Sub

 

[MoshiM]

That worked! I tried to add Bolding. I am now getting error 438 with both of the lines that bold the lables

Is this what you want?

For Each cht In ActiveSheet.ChartObjects

    With cht.Chart
    
        With .Axes(xlValue).TickLabels.Font
            .Color = RGB(60, 60, 60)
            .Bold = True
        End With
        
        With .Axes(xlCategory).TickLabels.Font
            .Color = RGB(60, 60, 60)
            .Bold = True
        End With
        
        With .Legend.Font
            .Color = RGB(60, 60, 60)
            .Bold = True
        End With
        
    End With

Next cht

 

[Fireredeel]

Is this what you want?

Yes this woeked thank you? Do you mind me asking where I was going wrong?

 

[MoshiM]

Is this what you want?

Yes this woeked thank you? Do you mind me asking where I was going wrong?

The properties for the objects you were trying to edit don't exist or were read-only.

https://docs.microsoft.com/en-us/office/vba/api/excel.ticklabels.font

https://docs.microsoft.com/en-us/office/vba/api/excel.legend(object)

https://docs.microsoft.com/en-us/office/vba/api/excel.legend(object)

 

[Fireredeel]

The properties for the objects you were trying to edit don't exist or were read-only.

https://docs.microsoft.com/en-us/office/vba/api/excel.ticklabels.font

https://docs.microsoft.com/en-us/office/vba/api/excel.legend(object)

https://docs.microsoft.com/en-us/office/vba/api/excel.legend(object)

Thank you for your help!