Shape.Text-Eigenschaft (Visio)

Gibt den gesamten Text des Shapes zurück. Lese-/Schreibzugriff.

Syntax

Ausdruck verwendet werden. Text

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Zeichenfolge

Hinweise

In dem Text, der von der Text-Eigenschaft eines Shape-Objekts zurückgegeben wird, werden Felder durch ein Escapezeichen (30 (&H1E)) dargestellt. Wenn beispielsweise der Text eines Shape-Objekts ein Feld enthält, das den Dateinamen einer Zeichnung anzeigt, gibt die Text-Eigenschaft des Shape-Objekts an der Stelle, an der dieses Feld in den Text eingefügt wird, ein Escapezeichen zurück. Wenn der Text das erweiterte Feld enthalten soll, rufen Sie die Characters-Eigenschaft des Shapes und dann die Text-Eigenschaft des resultierenden Characters-Objekts ab.

Handelt es sich bei dem Shape um eine Gruppe, hängt der zurückgegebene Text von dem Wert der Zelle IsTextEditTarget ab.

• Wenn IsTextEditTarget True ist, gibt die Text-Eigenschaft des Shape-Objekts den Text der Gruppe zurück.

• Wenn IsTextEditTarget False ist, gibt die Text-Eigenschaft des Shape-Objekts den Text der Form in der Gruppe am Anfang der Stapelreihenfolge zurück.

Objekte aus anderen Anwendungen und Führungslinien besitzen keine Text-Eigenschaft.

Wenn Ihre Visual Studio-Lösung die Referenz Microsoft.Office.Interop.Visio enthält, wird diese Eigenschaft den folgenden Typen zugeordnet:

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

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) zeigt, wie die Text-Eigenschaft eines Shapes abgerufen werden kann.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.