Consider the following chart (this is the macro used to
create the chart):

'---------------------------------------------
------------------------
Charts.Add()
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData(Source:=Sheets
("Sheet1").Range("A7:C13"), PlotBy _
:=xlColumns)
ActiveChart.Location
(Whe=xlLocationAsObject, Name:="Sheet1")
ActiveSheet.Shapes("Chart 2").IncrementLeft(-
138.75)
ActiveSheet.Shapes("Chart 2").IncrementTop
(26.25)
ActiveWindow.Visible = False
Windows("projected.xls").Activate()
Range("G14").Select()
'=============================================
========================

I've successfully confirmed the .Top and .Left positions
of the Shape, but I can't seem to drill down to the
actual Chart object that was embedded.

I need to verify
the .ChartType, .SeriesCollection.Formula
and .SeriesCollection.Name of this embedded chart, but I
can't seem to find my way to it.

Can someone help me locate the Chart within the Shape?

Thanks, in advance, for your help.