Pivot Table Formating

[peachmelba]

Has anyone managed to format a pivot table from code.

I have managed to format the labels and the data but can not find a way of formating the totals.

Currently I use for the labels:-

pvtField.LabelRange.Font.Bold = True
pvtField.LabelRange.Interior.Color = intcolGroupBy
pvtField.LabelRange.WrapText = True
pvtField.DataRange.Font.Bold = True
pvtField.DataRange.Interior.Color = intcolGroupBy

and

For Each pvtField In pvtTable.DataFields
pvtField.DataRange.Interior.Color = intcolAuto
pvtField.DataRange.Borders.Color = 0
Next pvtField

for the data fields. I need to do the same for the Sub Totals. Anyone have any ideas????

Regs

Peachmelba

 

[AirZebra]

Hi,

In Excel 97 I use rowgrand and columngrand to select the subtotals and turn them on or off eg.

With ActiveSheet.PivotTables("PivotTable1&quot
.ColumnGrand = False
.RowGrand = False
End With

I don't know if that is sueful to you or not.

Regards,

Alan

 

[peachmelba]

Alan

Thanks for the response but that does not work.

I think it is something to do with the pvtTable.DataBodyRange but i have not yet looked into this.

Regs

Peachmelba