VBA/Excel/Access/Word/Excel/PivotChart — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:47, 26 мая 2010
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>