Shape.Text-Eigenschaft (Visio)

Artikel
01/17/2024

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

Syntax

Ausdruck. 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 der Text eines Shape-Objekts beispielsweise ein Feld enthält, das den Dateinamen einer Zeichnung anzeigt, gibt die Text-Eigenschaft des Shape-Objekts ein Escapezeichen zurück, wobei dieses Feld in den Text eingefügt wird. 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 auf True festgelegt ist, gibt die Text-Eigenschaft des Shape-Objekts den Text der Gruppe zurück.
Wenn IsTextEditTarget auf False festgelegt 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.

Freigeben über