Propriété Shape.Characters (Visio)

Renvoie un objet Characters qui représente le texte d'une forme. En lecture seule.

Syntaxe

expression. Characters

Expression Variable qui représente un objet Shape .

Valeur renvoyée

Chararacters

Remarques

Si votre solution Visual Studio inclut la référence Microsoft.Office.Interop.Visio , cette propriété correspond aux types suivants :

• Microsoft.Office.Interop.Visio.IVShape.Characters

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la propriété Characters d’une forme pour obtenir un objet Characters . Une fois qu’un objet Characters a été récupéré, l’exemple utilise la propriété Shape de l’objet Characters pour obtenir la forme qui contient les caractères et montre que la forme contenante a été récupérée en imprimant son texte dans la fenêtre Exécution.

 
Public Sub Characters_Example() 
  
    Dim vsoOval As Visio.Shape  
    Dim vsoShapeFromCharacters As Visio.Shape  
    Dim vsoCharacters As Visio.Characters  
 
    'Create a shape and add text to it. 
    Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)  
    vsoOval.Text = "Rectangular Shape"  
 
    'Get a Characters object from the oval shape. 
    Set vsoCharacters = vsoOval.Characters  
 
    'Set the Begin and End properties so that we can 
    'replace the word "Rectangular" with "Oval" 
    vsoCharacters.Begin = 0 
    vsoCharacters.End = 11 
    vsoCharacters.Text = "Oval" 
 
    'Use the Shape property of the Characters object 
    'to get the Shape object. 
    Set vsoShapeFromCharacters = vsoCharacters.Shape  
 
    'Print the shape's text to verify that the proper Shape 
    'object was returned.  
    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.