Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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