Pivot table: how to programmatically format headers?

[Dave O]

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]

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

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

 

[Dave O]

That did it- thanks very much!

 

[Debra Dalgleish]

You're welcome. Thanks for letting me know that it worked.