CODEWITHSUNDEEP
excelvba
MelBee
MelBee

Reputation: 67

Change font size for pivot table?

I would simply like to change the font size of a pivot table produced with a macro.

With ActiveSheet.PivotTables("PivotTable")
   .PivotFields("FieldName").ShowDetail = False
   .DataBodyRange.Font.Size = 10
End With

I am using this right now to change the font size, but this only effects the cells that contain data, and leaves out the cells that are field names. I would like to change the font size of everything in the pivot table.

Upvotes: 3

Views: 2618

Answers (1)

Tom
Tom

Reputation: 9878

Try using 

With ActiveSheet.PivotTables("PivotTable")
   .PivotFields("FieldName").ShowDetail = False
   .TableRange1.Font.Size = 10
End With

Upvotes: 4

Related Questions