vba - VBA - PivotItem が表示されている場合

Question

PivotItem が表示されている場合に実行したい vba コードと、表示されていない場合に実行する別のコードがあります。このサブを実行し、アイテムがオンになっていると、それが表示されていることを認識しません。

Sub test()

If Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("TestField").PivotItems("TestItem").Value = xlOn Then
MsgBox "is on"
Else: MsgBox "is off"
End If

End Sub

乾杯