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 de Campo Dinâmico .

Comentários

Para evitar erros de tempo de execução, a origem de dados tem de ser uma origem OLAP, o campo escolhido tem de estar atualmente na posição Página e a propriedade EnableMultiplePageItems tem de ser definida como Verdadeiro.

Exemplo

Este exemplo define o campo de página para listar os Itens alimentares do relatório de 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.