How do I retrieve Chart Source (range) and PlotBy

[Gilroy]

I have a chart created by the Chart Wizard. Here's the
Macro that was generated during its creation:

Charts.Add()
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData(Source:=Sheets
("Sheet1").Range("A715"), PlotBy _
:=xlColumns)
ActiveChart.Location
(Where:=xlLocationAsNewSheet)
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "1st
Quarter"
.Axes(xlCategory, xlPrimary).HasTitle =
False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

How do I verify the Source and PlotBy properties of the
ActiveChart after its creation?

This is what I have so far to check other properties:

Dim ThisChart As Excel.Chart
ThisChart = appExcel.Charts.Item("Chart1")
If ThisChart.ChartType =
Excel.XlChartType.xlColumnClustered Then
MsgBox("ColumnClustered is Good")
End If
If ThisChart.HasTitle And
ThisChart.ChartTitle.Text = "1st Quarter" Then
MsgBox("ChartTitle is Good")
End If

Thanks, in advance, for your help.

 

[Gilroy]

This is what you must do:

Dim ThisSeriesCollection As
Excel.SeriesCollection
ThisSeriesCollection =
ThisChart.SeriesCollection
If ThisSeriesCollection.Count = 3 Then
If ThisSeriesCollection.Item(1).Name
= "Jan" _
And ThisSeriesCollection.Item
(1).Formula = "=SERIES(Sheet1!$B$7,Sheet1!
$A$8:$A$15,Sheet1!$B$8:$B$15,1)" _
And ThisSeriesCollection.Item(2).Name
= "Feb" _
And ThisSeriesCollection.Item
(2).Formula = "=SERIES(Sheet1!$C$7,Sheet1!
$A$8:$A$15,Sheet1!$C$8:$C$15,2)" _
And ThisSeriesCollection.Item(3).Name
= "Mar" _
And ThisSeriesCollection.Item
(3).Formula = "=SERIES(Sheet1!$D$7,Sheet1!
$A$8:$A$15,Sheet1!$D$8:$D$15,3)" Then
MsgBox("DataSource is Good")
End If
End If

Woot! Sometimes I surprise myself. LOL