This example adds a title to embedded chart one on Sheet1.
With Worksheets("Sheet1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "1995 Rainfall Totals by Month"
End With
This example creates a new series in embedded chart one on Sheet1. The data source for the new series is the range B1:B10 on Sheet1.
Worksheets("Sheet1").ChartObjects(1).Activate
ActiveChart.SeriesCollection.Add _
source:=Worksheets("Sheet1").Range("B1:B10")
This example clears the formatting of embedded chart one on Sheet1.
Worksheets("Sheet1").ChartObjects(1).Chart.ChartArea.ClearFormats