Propriedade Shape.Text (Visio)
Retorna todo o texto da forma. Leitura/gravação.
expressão. Texto
expressão Uma variável que representa um objeto Shape.
Cadeia de caracteres
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
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
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.