VBA/Excel/Access/Word/Excel/PivotChart

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>