Propriété Shape.Text (Visio)

Renvoie tout le texte de la forme. Lecture-écriture.

Syntaxe

expression. SMS

expression Une variable qui représente uneForme d’objet.

Valeur renvoyée

String

Remarques

Dans le texte renvoyé par la propriété Text d’un objet Shape, les champs sont représentés par un caractère d’échappement (30 (&H1E)) Par exemple, si le texte d’un objet Shape contient un champ qui affiche le nom de fichier d’un dessin, la propriété Text de l’objet Shape renvoie un caractère d’échappement où ce champ est inséré dans le texte. Si vous souhaitez que le texte contienne le champ développé, obtenez la propriété Characters de la forme, puis la propriété Text de l’objet Characters résultant.

Si la forme est un groupe, le texte renvoyé dépend de la valeur de la cellule IsTextEditTarget.

• Si IsTextEditTarget a la valeur True, la propriété Text de l’objet Shape renvoie le texte du groupe.

• Si IsTextEditTarget a la valeur False, la propriété Text de l’objet Shape renvoie le texte de la forme dans le groupe en haut de l’ordre d’empilement.

Les objets issus d'autres applications et les repères n'ont pas de propriété Text.

Si votre solution Visual Studio comprend la référence Microsoft.Office.Interop.Visio, cette propriété est mappée avec les types suivants :

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

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment obtenir la propriété Text d'une forme.

 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.