VBA/Excel/Access/Word/Excel/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