delete a pivot table (but not the data or format)

[yankee428]

i want to retain the data and format, but get rid of the pivot capacity before sharing the spreadsheet. right now if a copy/paste special, i can get the data, but not the formats, any suggestions?

 

[Jon Peltier]

Copy - Paste Special Values, followed immediately by Paste Special Formats.

 

[yankee428]

Jon, in 2007 this does not work, but what you can do is get the address property (parse out if it's an array) and copy just the range of the larger portion of the pivot.

tmp = pv.address
if instr(1,tmp,",") then
tmp = split(tmp,",")(1)
range(tmp).copy

then do the paste special as described

 

[Jon Peltier]

I recently was told how to make this work in 2007. Copy part of the pivot table, all but one row for example, then paste special values plus paste special formats. Copy the remainder of the pivot table, and repeat the two paste special operations.

This is nothing more than taking your solution and doing it twice to get the entire table.