CubeField.AddMemberPropertyField method (Excel)

Adiciona um campo de propriedades membro para a exibição do campo de cubo.

Sintaxe

expressão. AddMemberPropertyField (Property, PropertyOrder, PropertyDisplayedIn)

expressão Uma variável que representa um objeto CubeField .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Propriedade	Obrigatório	String	O nome exclusivo da propriedade membro. Para hierarquias equilibradas, um nome exclusivo pode ser criado pelo acréscimo do nome da propriedade membro "entre aspas" ao nome exclusivo do nível ao qual a propriedade membro está associada. Para hierarquias não equilibradas, um nome exclusivo pode ser criado pelo acréscimo do nome da propriedade membro "entre aspas" ao nome exclusivo da hierarquia.
PropertyOrder	Opcional	Variant	Define o valor da propriedade PropertyOrder para um objeto CubeField . A posição real na coleção será imediatamente anterior ao campo PivotTable que tem atualmente o mesmo valor PropertyOrder fornecido no argumento. Se nenhum campo tiver o valor PropertyOrder especificado, o intervalo de valores aceitáveis é 1 para o número de propriedades de membro já apresentadas para a hierarquia mais um. Este argumento tem base um. Se for omitido, a propriedade irá para o fim da lista.
PropertyDisplayedIn	Opcional	XlPropertyDisplayedIn	Especifica onde será exibida a propriedade. Se esse argumento for omitido, o campo de propriedade do membro será adicionado somente ao campo PivotTable.

Comentários

O campo de propriedade especificado não será visível se o modo de tabela dinâmica não tiver campos.

Para excluir propriedades membro, use o método Delete para excluir o objeto PivotField da coleção PivotFields.

Exemplo

Neste exemplo, o Microsoft Excel adiciona um campo de propriedade de membro intitulado Descrição à vista de relatório de tabela dinâmica. Este exemplo pressupõe que existe uma tabela dinâmica na folha de cálculo ativa e que País, Área e Descrição são itens no relatório.

Sub UseAddMemberPropertyField() 
 
 Dim pvtTable As PivotTable 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 
 With pvtTable 
 .ManualUpdate = True 
 .CubeFields("[Country]").LayoutForm = xlOutline 
 .CubeFields("[Country]").AddMemberPropertyField _ 
 Property:="[Country].[Area].[Description]" 
 .ManualUpdate = False 
 End With 
 
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.