(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
creates a new PivotChart
<source lang="vb">
Sub CreatePivotChart()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddChart(xlColumnStacked)
shp.Chart.SetSourceData Source:=ActiveSheet.PivotTables(1).TableRange1, _
PlotBy:=xlColumns
With Range("A11:F28")
shp.Left = .Left
shp.Top = .Top
shp.Width = .Width
shp.Height = .Height
End With
With shp.Chart.PivotLayout.PivotTable
.PivotFields("Customer").Orientation = xlColumnField
.PivotFields("Product").Orientation = xlRowField
End With
shp.Chart.ChartType = xlCylinderColStacked
End Sub
</source>