Shape.Characters-Eigenschaft (Visio)

Artikel
10/16/2024

Gibt ein Characters-Objekt zurück, das den Text eines Shapes darstellt. Schreibgeschützt.

Syntax

Ausdruck. Characters

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Characters

Hinweise

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.Characters

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die Characters-Eigenschaft eines Shapes verwendet wird, um ein Characters-Objekt abzurufen. Nachdem ein Characters-Objekt abgerufen wurde, verwendet das Beispiel die Shape-Eigenschaft des Characters-Objekts , um die Form abzurufen, die die Zeichen enthält, und zeigt, dass die enthaltende Form abgerufen wurde, indem ihr Text im Direktfenster gedruckt wird.

 
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

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