A tarefa é automatizar a filtragem de dados da tabela dinâmica OLAP. Existem alguns itens no campo dinâmico chamado sPivotFieldName que preciso excluir. O código abaixo funciona muito bem.

With Worksheets(sWorksheetName).PivotTables(sPivotTableName)
    With .CubeFields(sCubeFieldName)
        .Orientation = xlRowField
        .IncludeNewItemsInFilter = True
    End With
    .PivotFields(sPivotFieldName).HiddenItemsList = vSomeItemsToExclude
End With

Mas o problema aparece quando estou tentando alterar o valor da propriedade ".Orientation" do campo do cubo para xlPageField. O erro em tempo de execução 1004 é acionado toda vez. Aqui está um exemplo:

With Worksheets(sWorksheetName).PivotTables(sPivotTableName)
    With .CubeFields(sCubeFieldName)
        .Orientation = xlPageField
        .IncludeNewItemsInFilter = True
    End With
    .PivotFields(sPivotFieldName).HiddenItemsList = vSomeItemsToExclude
End With

O motivo parece ser que os itens dos campos colocados no campo de página não são visíveis como estão quando são colocados, por exemplo, no campo de linha (é possível vê-los como legendas de linha). Ou talvez haja algo mais. o que estou perdendo?