Método GraphicItem.GetExpression (Visio)

Obtém o rótulo do item de dados de forma (propriedade personalizada) que o GraphicItem representa ou o valor da cadeia de expressão que faz parte da regra de um objeto GraphicItem , na qual os dados de forma são avaliados.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

expression. GetExpression( _Field_ , _Expression_ )

Expressão Uma expressão que retorna um objeto GraphicItem .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Field	Obrigatório	VisGraphicField	Parâmetro externo. Um valor constante da enumeração VisGraphicField especificando se Expression é um rótulo shape-data-item ou a fórmula na planilha ShapeSheet do campo de dados primário (coluna) atribuído ao GraphicItem. Consulte comentários para os valores possíveis.
Expressão.	Obrigatório	String	Parâmetro externo. A expressão ShapeSheet associada ao parâmetro Field.

Valor de retorno

Nada

Comentários

O valor de Field retornado como um parâmetro externo é um dos seguintes valores da enumeração VisGraphicField, declarada na biblioteca de tipos do Microsoft Visio.

Constant	Valor	Descrição
visGraphicPropertyLabel	1	O rótulo de um item de dados da forma.
visGraphicExpression	2	A fórmula do ShapeSheet de um item de dados da forma.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método GetExpression para obter o valor da cadeia de caracteres da expressão de um item gráfico de dados. Ele obtém a expressão aplicada mais recentemente para o primeiro item gráfico na coleção GraphicItems do objeto Mestre do tipo visTypeDataGraphic (comumente chamado de gráfico de dados) chamado "Gráfico de Dados", e imprime o campo e a expressão na janela Imediata.

Observação

Para determinar o nome de um mestre de gráfico de dados existente, mova o mouse sobre o mestre no painel de tarefas Gráficos de Dados na interface do usuário do Visio.

A macro pressupõe que exista um gráfico de dados chamado "Gráfico de Dados" no documento atual. Para obter mais informações sobre como adicionar um mestre gráfico de dados à coleção Masters do documento atual, consulte Masters.AddEx.

Public Sub GetExpression() 
 
    Dim vsoGraphicItem As Visio.GraphicItem 
    Set vsoGraphicItem = ActiveDocument.Masters("Data Graphic").GraphicItems(1) 
    Dim strExpression As String 
    Dim fieldName As VisGraphicField 
     
    vsoGraphicItem.GetExpression fieldName, strExpression 
    Debug.Print strExpression 
    Debug.Print fieldName 
 
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.