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.