'add titles to chart
.HasTitle = True
.ChartTitle.Characters.Text = StrChartTitle
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = RowName
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "no.of patients"
'sets the Height and Width of the Chart
.Height = 200
.Width = 500
.Top = 100
.Left = 10
'select which sheets you want to show
If WhichDoc = True Then
My Pivot Table starts at Cell A6 to allow for images at the top of the screen this is for any pivot table which has been produced by the pivottable sub routine.
I hope this helps and realise this is probably not the best way to do it.
I charted the data from the pivot table rather than from the pivot itself.
This works for 97(all i use im afraid)