Hi All,
I looking for a pivot chart below a pivot table. The number of rows of the table can vary.. can someone please tell me how I can place the chart below the pivot table.
Code
Set ChartDataRange = pt.TableRange1.Offset(1, 0).Resize(pt.TableRange1.Rows.count - 1)
'Add the Chart
PTOutput.Shapes.AddChart.Select
Set cht = ActiveChart
cht.SetSourceData Source:=ChartDataRange
'Format the Chart
cht.ChartType = xlColumnClustered
cht.SetElement (msoElementChartTitleAboveChart)
cht.ChartTitle.Caption = “Current_Status”
cht.SetElement msoElementPrimaryValueAxisThousands
cht.ShowAllFieldButtons = False