数据透视图“For Each”功能

如何解决数据透视图“For Each”功能

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

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

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