Compartilhar via

Propriedade Page.Shapes (Visio)

  • Artigo

Retorna a coleção Shapes para uma página, um mestre ou um grupo. Somente leitura.

Sintaxe

expressão. Formas

Expressão Uma variável que representa um objeto Page .

Valor de retorno

Formas

Comentários

Se sua solução do Visual Studio incluir a referência Microsoft.Office.Interop.Visio , essa propriedade será mapeada para os seguintes tipos:

  • Microsoft.Office.Interop.Visio.IVPage.Shapes

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Shapes para obter a coleção Shapes. Ela imprime os nomes de todas as formas em Page1 na janela Immediate.

Para executar essa macro, verifique se o documento ativo possui formas na Página1.

 
Public Sub Shapes_Example()  
 
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes  
 
    Debug.Print "Shapes in document: "; ActiveDocument.Name 
    Debug.Print "On page: "; ActiveDocument.Pages.Item(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.Item(intCounter).Name  
        Next intCounter 
  
    Else 
        Debug.Print "No Shapes On Page"  
    End If   
 
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.