|
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
|