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.