VBA批量创建多个数据透视图

nomorewaiting

如何用VBA批量创建多个数据透视图，楼主只会用VBA创建数据透视表，但是不知道如何创建数据透视图，直觉是加一句创建图的代码即可，但还没这个水平，求指教。下文附上数据源和创建透视表的代码
数据源：
组别 电芯编号 容量 能量 温升
GN1 37 7.347 26.74 0.6
GN2 38 8.347 27.74 1.6
GN3 39 9.347 28.74 2.6
GN4 40 10.347 29.74 3.6
GN5 41 11.347 30.74 4.6
创建透视表的代码：
Sub creatpivot()
Dim pt As PivotTable
Dim pc As PivotCache
Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ThisWorkbook.Sheets("容量").Range("a1:e6"))
Set pt = pc.CreatePivotTable(TableDestination:=ThisWorkbook.Sheets("容量").Range("f2"), TableName:="Video Data")
pt.ColumnGrand = False '不显示列统计
pt.RowGrand = False '不显示列统计

pt.AddFields RowFields:="组别"
pt.AddDataField pt.PivotFields("容量"), "均值:容量", xlAverage '添加容量为值字段，平均值
pt.AddDataField pt.PivotFields("能量"), "均值:能量", xlAverage '添加能量为值字段，平均值
pt.AddDataField pt.PivotFields("温升"), "均值:温升", xlAverage '添加温升为值字段，平均值
End Sub

vbee

    ActiveChart.SetSourceData Source:=pt.RowRange