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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Pivot table: how to programmatically format headers?
If you want to format the field buttons:
Sub Pivot_Table_Headings_Format() Dim pt As PivotTable Dim pf As PivotField On Error Resume Next For Each pt In ActiveSheet.PivotTables For Each pf In pt.VisibleFields pf.LabelRange.Font.Underline = True Next pf Next pt End Sub Dave O wrote: 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 -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Pivot table: how to programmatically format headers?
That did it- thanks very much!
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Pivot table: how to programmatically format headers?
You're welcome. Thanks for letting me know that it worked.
Dave O wrote: That did it- thanks very much! -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html |
Reply |
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) |