Compartir a través de

Propiedad Page.Shapes (Visio)

  • Artículo

Devuelve la colección Shapes para una página, un patrón o un grupo. Solo lectura.

Sintaxis

expresión. Formas

Expresión Variable que representa un objeto Page .

Valor devuelto

Formas

Comentarios

Si la solución de Visual Studio incluye la referencia Microsoft.Office.Interop.Visio , esta propiedad se asigna a los tipos siguientes:

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

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad Shapes para obtener la colección Shapes. Imprime los nombres de todas las formas de Page1 en la ventana Inmediato.

Para ejecutar esta macro, asegúrese de que el documento activo tiene formas en la página 1.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.