Método CubeField.AddMemberPropertyField (Excel)
Adiciona um campo de propriedades membro para a exibição do campo de cubo.
Sintaxe
expressão. AddMemberPropertyField (Propriedade, 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 | Variantes | 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 fornecido, o intervalo de valores aceitáveis será 1 para o número de propriedades membro já exibidas para a hierarquia mais uma. 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 membro intitulado Descrição à exibição de relatório de Tabela Dinâmica. Este exemplo pressupõe que exista uma Tabela Dinâmica na planilha 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.