creates a new PivotChart : PivotChart « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. PivotChart

creates a new PivotChart

 
     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

 

Related examples in the same category