excel中用VB创建的图表chart，如何定义name？

Question

想利用vbe创建一个比如叫"地区对比"的图表.代码是啥.
用宏看了半天还是不会,宏只会给你看激活的图表,然后改名
可不可以直接创建的时候就定义好名字?
Private Sub CheckBox1_Click()
Range("C1:E13").Select
Range("C13").Activate
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"地区统计!R1C3:R13C5", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="地区统计!R22C7", TableName:="地区", DefaultVersion:= _
xlPivotTableVersion15
Sheets("地区统计").Select
Cells(22, 7).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("地区").PivotFields("地区")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("地区").AddDataField ActiveSheet.PivotTables("地区" _
).PivotFields("数量"), "求和项:数量", xlSum
ActiveSheet.PivotTables("地区").PivotSelect "地区[All]", xlLabelOnly + _
xlFirstRow, True
后边就不会了

Answer 1

后面增加：
Set ch = ActiveSheet.Shapes(1)
ch.Name = "地区对比"追问

如何判断我创建的就是shapes1