Debra, Brilliant, works a treat, with the addition of a routine to ensure
macros are enabled (Which I have) and some error trapping(which I have done)
I can release my pivot charts into the world!! once again many thanks

"Debra Dalgleish" wrote:

Instead of:

With ActiveSheet.PivotTables(1)

use:

With ActiveChart.PivotLayout.PivotTable

This will affect the pivot table on which the pivot chart is based.


Graham F wrote:
Debra, many thanks for your help, one thing I forgot to mention is that the
pivot table buttons are on a chart sheet, and the code suggested won't work
it says Run Time Error '438' Object dosn't support this property or method.
Can you suggest a soloution? Many thanks

"Debra Dalgleish" wrote:


You can use programming to prevent fields from being dragged to a
different location, or off the pivot table. There's sample code he

http://www.contextures.com/xlPivot12.html

PK wrote:

I have created a Pivot Table and graph. The graphs will be available for use
by my coleges to interigate data. The table/graph consists 4 Pivot Table
Fields, can I fix some of the fields so that cant be removed however my
collegue will need to be able to add further fields


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html





--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html