Freigeben über


Shape.AlternativeText-Eigenschaft (Visio)

Gibt die einem Objekt zugeordnete alternative Textbeschreibung zurück oder legt sie fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. AlternativeText

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

String

Hinweise

Verwenden Sie diese Eigenschaft, um barrierefreie Diagramme mithilfe von Visio zu erstellen.

Hinweis

Ab Microsoft Visio 2016 C2R können Sie AlternativeText für Page-, Shape- und Master-Objekte verwenden.

Beispiel

Dieses vba-Makro (Visual Basic for Applications) zeigt, wie die AlternativeText-Eigenschaft eines Shapes festgelegt und abgerufen wird.

 public Sub ShapeAlternativeText_Example()  
 
     Dim vsoRectangle As Visio.Shape  
     
      'Create a rectangle shape and add alternative text to it. 
    Set vsoRectangle = ActivePage.DrawRectangle(2, 3, 5, 4)   
    vsoRectangle.AlternativeText = "Rectangle Shape alternative text"  
   
     'Get a Cell object from the shape. 
    Set vsoCell = vsoRectangle.Cells("Width")  
  
     'Use the Shape property to get the Shape object. 
    Set vsoShapeFromCell = vsoCell.Shape  
 
     'Use shape's alternative text to verify the proper Shape 
    'object was returned.  
    Debug.Print vsoShapeFromCell.AlternativeText 
 
 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.