Propriedade Shape.AlternativeText (Visio)

Devolve ou define a descrição de texto alternativa associada a um objeto. Leitura/gravação.

Sintaxe

expressão. Texto Alternativo

expressão Uma variável que representa um objeto Shape.

Valor de retorno

Cadeia de caracteres

Comentários

Utilize esta propriedade para criar diagramas acessíveis com o Visio.

Exemplo

Esta macro Visual Basic for Applications (VBA) mostra como definir e obter a propriedade Texto Alternativo de uma forma.

 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.