Propriedade Tabela Dinâmica.PreserveFormatting (Excel)

Verdadeiro se a formatação for preservada quando o relatório é atualizado ou recalculado por operações como dinamização, ordenação ou alteração de itens de campo de página.

Para tabelas de consulta, esta propriedade é Verdadeiro se alguma formatação comum às primeiras cinco linhas de dados for aplicada a novas linhas de dados na tabela de consulta. As células não utilizadas não são formatadas.

A propriedade será False se a última AutoFormatação aplicada à tabela de consulta for aplicada às novas linhas de dados. O valor padrão é True.

Sintaxe

expressão. PreserveFormatting

expressão Uma variável que representa um objeto de tabela dinâmica .

Comentários

Para tabelas de consulta de base de dados, a definição de formatação predefinida é a constantexlSimple.

O novo estilo de AutoFormatação será aplicado à tabela de consulta quando a tabela for atualizada. A AutoFormatação será redefinida como None sempre que PreserveFormatting for definido como False. Como resultado, qualquer Formatação Automática definida antes de PreserveFormatting está definida como Falso e antes de a tabela de consulta ser atualizada não entrar em vigor e a tabela de consulta resultante não tem formatação aplicada à mesma.

Exemplo

Este exemplo preserva a formatação do primeiro relatório de tabela dinâmica na planilha um.

Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True

Este exemplo demonstra como a definição PreserveFormatting como False faz com que a Formatação Automática seja definida para o valor XlRangeAutoFormatxlRangeAutoFormatNone em vez do formato xlRangeAutoFormatColor1 especificado.

With Workbooks(1).Worksheets(1).QueryTables(1) 
 .Range.AutoFormat = xlRangeAutoFormatColor1 
 .PreserveFormatting = False 
 .Refresh 
End With

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.