Метод Selection.GetIDs (Visio)

Статья
04/07/2023

Возвращает идентификаторы фигур в выделенном фрагменте.

Примечание.

Этот объект или элемент Visio доступен только лицензированным пользователям Visio профессиональный 2013.

Синтаксис

expression. GetIDs(ShapeIDs())

Выражение Выражение, возвращающее объект Selection .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ShapeIDs()	Обязательный	Long	Параметр Out. Массив идентификаторов фигур типа Long , соответствующих фигурам в выделенном фрагменте.

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

Отсутствует

Примечания

Microsoft Visio использует номера идентификаторов для идентификации фигур, наборов записей и строк данных. Идентификаторы фигур уникальны только в области страницы, на которой они находятся. После определения этих идентификаторов фигур их можно передать в метод Page.LinkShapesToDataRows , чтобы указать, как именно фигуры на схеме должны связываться со строками данных в доступных наборах записей данных. Идентификаторы фигур уникальны в области определенной страницы.

Чтобы определить идентификатор фигуры, которая является частью выделенного фрагмента, используйте метод Selection.GetIDs .

Возвращаемый набор идентификаторов фигур определяется параметром свойства Selection.IterationMode .

Пример

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

Public Sub GetIDs_Example() 
 
    Dim vsoSelection As Visio.Selection 
    Dim lngShapeID As Long
    Dim intShapeIndex As Integer 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
     
    Call vsoSelection.GetIDs(lngShapeIDs) 
     
    For intShapeIndex = LBound(lngShapeIDs) To UBound(lngShapeIDs) 
        lngShapeID = lngShapeIDs(intShapeIndex)
        Debug.Print lngShapeID 
    Next 
 
End Sub

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

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