Propriedade PivotField.CurrentPageList (Excel)

Retorna ou define uma matriz de cadeia de caracteres que correspondem à lista de itens incluídos em um campo de página de um relatório de tabela dinâmica. Variant de leitura/gravação.

Sintaxe

expressão. CurrentPageList

Expressão Uma variável que representa um objeto PivotField .

Comentários

Para evitar erros de tempo de execução, a fonte de dados deve ser uma fonte OLAP, o campo escolhido deve estar atualmente na posição Page e a propriedade EnableMultiplePageItems deve ser definida como True.

Exemplo

Este exemplo define o campo de página para listar os itens food do relatório tabela dinâmica. O exemplo supõe que exista uma tabela dinâmica na planilha ativa.

Sub UseCurrentPageList() 
 
 Dim pvtTable As PivotTable 
 Dim pvtField As PivotField 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 Set pvtField = pvtTable.PivotFields("[Product]") 
 
 ' To avoid run-time errors set the following property to True. 
 pvtTable.CubeFields("[Product]").EnableMultiplePageItems = True 
 
 ' Set the page list to "Food". 
 pvtField.CurrentPageList = "[Product].[All Products].[Food]" 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.