如何用vba切换数据透视表的报表布局？

在vba中要切换数据透视表的报表布局，需要设置PivotTable对象的RowAxisLayout方法。

其中RowAxisLayout方法可以有3种不同的参数，分别是xlCompactRow （以压缩形式显示） , xlTabularRow （以表格形式显示）,  xlOutlineRow（以大纲形式显示）。

以下vba代码举例演示了如何切换数据透视表的报表布局：

Sub QQ1722187970()
    Dim oPC As PivotCache
    Dim oPT As PivotTable
    Dim oPF As PivotField
    Dim oPI As PivotItem
    Dim oWK As Worksheet
    Set oWK = Sheet8
    Set oPT = oWK.PivotTables(1)
    With oPT
    '以表格形式显示
    .RowAxisLayout xlTabularRow
    '以压缩形式显示
    .RowAxisLayout xlCompactRow
    '以大纲形式显示
    .RowAxisLayout xlOutlineRow
    End With
End Sub