Adding chart title to chart - VBA

[Kaps_mr2]

Hello,

I am trying to add a title to my radar graph but keep getting an error on the line in yellow. Can someone explain why pls ? thank you.

kind regards
Kaps

 current_question = output_workbook.Sheets(sheet_name).Range("o2").Offset(0, c).Value
       
         Set chart_output_range = output_workbook.Sheets(sheet_name).Range("a5").Offset(((c - 1) * 7) + 1, 1).Resize(5, 6)
         Set chart_data_range = output_workbook.Worksheets(sheet_name).Range("o1").Offset(last_row_of_source_data + 2, c).Resize(5, 1)
        
        
        With output_workbook.Sheets(sheet_name).ChartObjects.Add _
        (Left:=chart_output_range.Left, Width:=chart_output_range.Width, Top:=chart_output_range.Top, Height:=chart_output_range.Height)
          .Chart.SetSourceData Source:=chart_data_range
        .Chart.ChartType = xlRadar
 '       .ChartTitle.Text = current_question
        End With

 

[RoryA]

You should ensure that the chart actually has a title first - .Chart.HasTitle = True

 

[Kaps_mr2]

You should ensure that the chart actually has a title first - .Chart.HasTitle = True

thanks RoryA - but even with this I still get an error - "object does not support this property or method"

For c = 1 To number_of_questions_in_this_category
        
        current_question = output_workbook.Sheets(sheet_name).Range("o2").Offset(0, c).Value
        
        
         If (Int(c / 2) = c / 2) Then
            Set chart_output_range = output_workbook.Sheets(sheet_name).Range("g5").Offset(((c - 1) * 7) - 5, 1).Resize(10, 5)
         End If
        
           If (Int(c / 2) <> c / 2) Then
            Set chart_output_range = output_workbook.Sheets(sheet_name).Range("a5").Offset((c * 7) - 5, 1).Resize(10, 5)
         End If
        
         Set chart_data_range = output_workbook.Worksheets(sheet_name).Range("o1").Offset(last_row_of_source_data + 2, c).Resize(5, 1)
        
        
        With output_workbook.Sheets(sheet_name).ChartObjects.Add _
        (Left:=chart_output_range.Left, Width:=chart_output_range.Width, Top:=chart_output_range.Top, Height:=chart_output_range.Height)
          .Chart.SetSourceData Source:=chart_data_range
        .Chart.ChartType = xlRadar
        .Chart.HasLegend = False
        .Chart.HasTitle = True
        .ChartTitle.Text = current_question
        End With
        
    
        Next c

 

[RoryA]

You missed out the .Chart before .ChartTitle

 

[Kaps_mr2]

You missed out the .Chart before .ChartTitle

many thanks !!

 

[Peter_SSs]

many thanks !!

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.