Propriedade PivotTable.VisualTotals (Excel)

True (padrão) para permitir que as tabelas dinâmicas OLAP (Online Analytical Processing) calculem novamente um total depois que um item foi ocultado. Boolean de leitura/gravação.

Sintaxe

expressão. Visualtotals

Expressão Uma variável que representa um objeto de Tabela Dinâmica .

Comentários

Nas tabelas dinâmicas não-OLAP, se você ocultar um item, o total será recalculado para refletir somente os itens que permanecerem visíveis na tabela dinâmica. Em uma tabela dinâmica OLAP, o total é calculado no servidor e por isso não é afetado por outros itens ocultos no modo de tabela dinâmica. No entanto, se a propriedade VisualTotals estiver definida como False para uma Tabela Dinâmica OLAP, os resultados da Tabela Dinâmica OLAP corresponderão aos da Tabela Dinâmica não OLAP.

Nas tabelas dinâmicas OLAP, uma definição de propriedade VisualTotals como True (padrão) funciona da mesma forma descrita para tabelas dinâmicas não-OLAP.

A propriedade VisualTotals retorna True para todas as novas tabelas dinâmicas. No entanto, se você abrir uma pasta de trabalho na versão atual do Microsoft Excel e a Tabela Dinâmica tiver sido criada em uma versão anterior do Excel, a propriedade VisualTotals retornará False.

Observação

Todas as Tabelas Dinâmicas criadas anteriormente têm a propriedade VisualTotals definida como False por padrão, a menos que o usuário a altere, mas para todas as Tabelas Dinâmicas recém-criadas, a propriedade VisualTotals está definida como True.

Exemplo

Este exemplo determina se a capacidade de retotalizar após um item ter sido oculto do modo de exibição está disponível para tabelas dinâmicas OLAP e notifica o usuário. O exemplo supõe que exista uma tabela dinâmica na planilha ativa.

Sub CheckVisualTotals() 
 
 Dim pvtTable As PivotTable 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 
 ' Determine if visual totals is enabled for OLAP PivotTables. 
 If pvtTable.VisualTotals = True Then 
 MsgBox "Ability enabled to re-total after an item " & _ 
 "has been hidden from view." 
 Else 
 MsgBox "Unable to re-total items not hidden from view." 
 End If 
 
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.