Propriedade Shape.Text (Visio)

Retorna todo o texto da forma. Leitura/gravação.

Sintaxe

expressão. Texto

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

Valor de retorno

Cadeia de caracteres

Comentários

No texto retornado pela propriedade Text de um objeto Shape, os campos são representados por um caractere de escape (30 (&H1E)) Por exemplo, se o texto de um objeto Shape contém um campo que exibe o nome do arquivo de um desenho, a propriedade Text do objeto Shape retorna um caractere de escape onde aquele campo é inserido no texto. Se deseja que o texto contenha o campo expandido, obtenha a propriedade Characters da forma e a propriedade Text do objeto Characters resultante.

Se a forma for um grupo, o texto retornado é dependente do valor da célula IsTextEditTarget.

• Se IsTextEditTarget for True, a propriedade Text do objeto Shape retornará o texto do grupo.

• Se IsTextEditTarget for False, a propriedade Text do objeto Shape retornará o texto da forma no grupo na parte superior da ordem de empilhamento.

Os objetos provenientes de outros aplicativos e guias não possuem uma propriedade Text.

Se sua solução Visual Studio inclui a referência de Microsoft.Office.Interop.Visio, essa propriedade é mapeada para os seguintes tipos:

• Microsoft.Office.Interop.Visio.IVShape.Text

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como obter a propriedade Text de uma forma.

 
Public Sub ShapeText_Example()  
 
    Dim vsoRectangle As Visio.Shape  
    Dim vsoOval As Visio.Shape  
    Dim vsoShapeFromCell As Visio.Shape  
    Dim vsoShapeFromCharacters As Visio.Shape  
    Dim vsoCell As Visio.Cell  
    Dim vsoCharacters As Visio.Characters  
 
    'Create 2 different shapes and add different text to each shape. 
    Set vsoRectangle = ActivePage.DrawRectangle(2, 3, 5, 4)  
    Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)  
    vsoRectangle.Text = "Rectangle Shape"  
    vsoOval.Text = "Oval Shape"  
 
    'Get a Cell object from the first shape. 
    Set vsoCell = vsoRectangle.Cells("Width")  
 
    'Get a Characters object from the second shape. 
    Set vsoCharacters = vsoOval.Characters  
 
    'Use the Shape property to get the Shape object. 
    Set vsoShapeFromCell = vsoCell.Shape  
    Set vsoShapeFromCharacters = vsoCharacters.Shape  
 
    'Use each shape's text to verify the proper Shape 
    'object was returned.  
    Debug.Print vsoShapeFromCell.Text  
    Debug.Print vsoShapeFromCharacters.Text  
 
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.