vba - 数据透视图“For Each”功能

Question

我正在尝试根据单元格中的下拉值使数据透视图更改其轴主题。使用以下代码更改数据字段（值）时，我已经能够完成这项工作。

Dim PT As PivotTable
Dim PF As PivotField
Dim sField As String

        For Each PF In PT.DataFields
        
          If PF.Name <> sField Then
          
            PF.Orientation = xlHidden
            
          End If
          
        Next PF

但是，当我尝试对数据透视图的轴执行相同操作时，使用以下代码会出现运行时错误（424 - 需要对象）。我认为问题在于“PivotTable.PivotAxis”行，并且与 .PivotAxis 有关。

Dim PT As PivotTable
Dim PF As PivotField
Dim sField As String
Dim PA As PivotAxis

        For Each PA In PT.PivotAxis
        
          If PA.Name <> sField Then
          
            PA.Orientation = xlHidden
            
          End If

    Next PA

关于如何迭代地检查数据透视图中的每个数据透视轴名称，有人有任何解决方案吗？