vba pivotchart
时间: 2024-06-13 10:07:06 浏览: 9
以下是使用VBA在Excel中创建透视表和透视图表的示例代码:
```vb
Sub CreatePivotTableAndChart()
'定义变量
Dim PivotTable As PivotTable
Dim PivotChart As Chart
'创建透视表
Set PivotTable = ActiveSheet.PivotTableWizard(SourceType:=xlDatabase, SourceData:=Range("A1:E11"), TableDestination:=Range("H1"), TableName:="PivotTable1")
'创建透视图表
Set PivotChart = ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Chart
With PivotChart
.SetSourceData Source:=PivotTable.TableRange1
.ChartType = xlColumnClustered
.HasTitle = True
.ChartTitle.Text = "Pivot Chart"
End With
End Sub
```
这段代码将在当前工作表中创建一个透视表和一个透视图表。透视表的源数据是A1:E11单元格范围内的数据,透视表将被放置在H1单元格中,并命名为“PivotTable1”。透视图表是一个柱状图,其源数据是透视表的数据,并且具有一个标题“Pivot Chart”。