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("A7:D15"), PlotBy _
:=xlColumns)
ActiveChart.Location
(Whe=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.