Adding a Chart Title : Chart Title « Excel « VBA / Excel / Access / Word






Adding a Chart Title

 
Sub chartTitle()
    Dim myChartObject As ChartObject
    Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=200, Top:=200, _
        Width:=400, Height:=300)
    
    myChartObject.Chart.SetSourceData Source:= _
        ActiveWorkbook.Sheets("Chart Data").Range("A1:E5")
    
    myChartObject.SeriesCollection.Add Source:=ActiveSheet.Range("C4:K4"), Rowcol:=xlRows
    myChartObject.SeriesCollection.NewSeries
    myChartObject.HasTitle = True
End Sub

 








Related examples in the same category

1.To change chart default title, set the Text property of the ChartTitle object, which represents the chart title
2.To position the title, set its Top property (specifying the number of points from the top edge of the worksheet) and its Left property (specifying the number of points from the left edge of the worksheet)
3.To format the text of the title, work with its Font object
4.Seaching for Charts Using the Chart Title