Свойство Page.Shapes (Visio)

Статья
04/07/2023

Возвращает коллекцию Фигуры для страницы , образца или группы. Только для чтения.

Синтаксис

expression. Формы

Выражение Переменная, представляющая объект Page .

Возвращаемое значение

Фигуры

Замечания

Если решение Visual Studio содержит ссылку microsoft.Office.Interop.Visio , это свойство сопоставляется со следующими типами:

Microsoft.Office.Interop.Visio.IVPage.Shapes

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство Shapes для получения коллекции Shapes. Он выводит имена всех фигур на странице Page1 в окне Интерпретация.

Чтобы запустить этот макрос, убедитесь, что активный документ содержит фигуры на странице Page1.

 
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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через