Propriété Shape.AlternativeText (Visio)

Article
04/07/2023

Renvoie ou définit la description de texte de remplacement associée à un objet. Lecture-écriture.

Syntaxe

expression. Texte alternatif

Expression Variable qui représente un objet Shape .

Valeur renvoyée

Chaîne

Remarques

Utilisez cette propriété pour créer des diagrammes accessibles à l’aide de Visio.

Remarque

À compter de Microsoft Visio 2016 C2R, vous pouvez utiliser AlternativeText sur les objets Page, Shape et Master .

Exemple

Cette macro Visual Basic pour Applications (VBA) montre comment définir et obtenir la propriété AlternativeText d’une forme.

 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via