Compartilhar via


Propriedade PivotTable.SmallGrid (Excel)

True se o Microsoft Excel usar uma grade com duas células de largura e duas células profundas para um relatório de Tabela Dinâmica recém-criado. False se o Excel usar um contorno estêncil em branco. Boolean de leitura/gravação.

Sintaxe

expressão. SmallGrid

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

Comentários

Você deve usar o contorno estêncil. A grade é fornecida somente porque ativa a compatibilidade com as versões anteriores do Excel.

Exemplo

Este exemplo cria um novo cache de Tabela Dinâmica com base em um provedor OLAP e cria um novo relatório de Tabela Dinâmica com base nesse cache na célula A3 na planilha ativa. O exemplo usa o contorno estêncil em vez da grade de célula.

With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal) 
 .Connection = _ 
 "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National" 
 .MaintainConnection = True 
 .CreatePivotTable TableDestination:=Range("A3"), _ 
 TableName:= "PivotTable1" 
End With 
With ActiveSheet.PivotTables("PivotTable1") 
 .SmallGrid = False 
 .PivotCache.RefreshPeriod = 0 
 With .CubeFields("[state]") 
 .Orientation = xlColumnField 
 .Position = 0 
 End With 
 With .CubeFields("[Measures].[Count Of au_id]") 
 .Orientation = xlDataField 
 .Position = 0 
 End With 
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.