How to set a caption for an embedded chart.

[OaklandJim]

Embedded charts are a bit tricky for me to learn. I suspect that I'll be asking a few questions. How do set the caption of a chart. Code I have is below.

    Set cResults = wsData.Shapes.AddChart.Chart

    With cResults
        
        .Parent.Name = "ECR Counts"
'
        .ChartType = xlColumnClustered
        
        .SetSourceData Source:=wsData.Range("B2:F3")

'        This fails        
'        .Caption = "ECR Counts"
        
        .Axes(xlValue).MajorUnit = 1

    End With

 

[Domenic]

Try the following...

        .HasTitle = True
        .ChartTitle.Caption = "ECR Counts"

Hope this helps!