Propiedad Shape.Text (Visio)

Devuelve todo el texto de la forma. Lectura y escritura.

Sintaxis

expresión. Texto

expresión Variable que representa un objeto Shape.

Valor devuelto

Cadena

Observaciones

En el texto devuelto por la propiedad Text de un objeto Shape, los campos se representan mediante un carácter de escape (30 (&H1E)) Por ejemplo, si el texto de un objeto Shape contiene un campo que muestra el nombre de archivo de un dibujo, la propiedad Text del objeto Shape devuelve un carácter de escape donde ese campo se inserta en el texto. Si desea que el texto contenga el campo expandido, obtenga la propiedad Characters de la forma y, a continuación, obtenga la propiedad Text del objeto Characters resultante.

Si la forma es un grupo, el texto devuelto depende del valor de la celda IsTextEditTarget.

• Si IsTextEditTarget es True, la propiedad Text del objeto Shape devuelve el texto del grupo.

• Si IsTextEditTarget es False, la propiedad Text del objeto Shape devuelve el texto de la forma del grupo en la parte superior del orden de apilamiento.

Los objetos de otras aplicaciones y guías no tienen la propiedad Text.

Si la solución de Visual Studio incluye la referencia Microsoft.Office.Interop.Visio, esta propiedad se asigna a los siguientes tipos:

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

Ejemplo

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo obtener la propiedad Text de una 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.