Изменить размер шрифта для сводной таблицы?

Question

Я просто хотел бы изменить размер шрифта сводной таблицы, созданной с помощью макроса.

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

Я использую это прямо сейчас, чтобы изменить размер шрифта, но это влияет только на ячейки, которые содержатданные, и пропускает ячейки, которые являются именами полей.Я хотел бы изменить размер шрифта всего в сводной таблице.

Answer 1

Попробуйте использовать

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