Propriedade Page.Shapes (Visio)
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.