Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Pivot table: how to programmatically format headers?
I've been asked to apply some formatting to a pivot table: bold and
italics for subtotals, and underline headers. After studying Debra Dalgleish's site I learned how to apply bold italic font to the subtotals, comme ca: Sub Pivot_Table_Format() Dim PT As PivotTable Dim PF As PivotField On Error Resume Next For Each PT In ActiveSheet.PivotTables 'Bold, italic subtotals For Each PF In PT.PivotFields PT.PivotSelect PF.Name & "[All;Total]", xlDataAndLabel, True Selection.Font.Italic = True Selection.Font.Bold = True Next PF Next PT Range("a1").Select End Sub How do I find and apply formatting to the headers? Thanks |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom field in Pivot Table? | Excel Discussion (Misc queries) | |||
Pivot Table Format | Excel Discussion (Misc queries) | |||
Derived Columns in Pivot Table | Excel Discussion (Misc queries) | |||
pivot table format report - setting default | Excel Discussion (Misc queries) | |||
How Do You Permanently Format Fields of a Pivot Table? | Excel Discussion (Misc queries) |