Метод Page.UniqueIDsToShapeIDs (Visio)

Статья
04/07/2023

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

Примечание.

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

Синтаксис

выражение. UniqueIDsToShapeIDs( _GUIDs()_ , _ShapeIDs()_ )

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

Параметры

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

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

Отсутствует

Примечания

Microsoft Visio идентифицирует фигуры по двум разным идентификаторам: идентификаторам фигур и уникальным идентификаторам. Идентификаторы фигур являются числовыми и однозначно определяют фигуры в области отдельной страницы документа. Однако они не являются уникальными в более широкой области.

Уникальные идентификаторы — это глобальные уникальные идентификаторы (GUID). Они уникальны в области приложения.

Для преобразования между идентификаторами фигур и уникальными идентификаторами можно использовать два метода объекта Page : ShapeIDsToUniqueIDs и UniqueIDsToShapeIDs.

По умолчанию фигура не имеет уникального идентификатора. Фигура получает уникальный идентификатор только в том случае, если задано ее свойство Shape.UniqueID .

Если объект Shape имеет уникальный идентификатор, ни одна другая фигура в другом документе не будет иметь такой же идентификатор.

Пример

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

Перед выполнением этого макроса откройте документ Visio и поместите несколько фигур на активную страницу документа.

Public Sub UniqueIDsToShapeIDs_Example() 
 
    Dim vsoShape As Visio.Shape 
    Dim intArrayCounter As Integer 
    Dim intShapeCount As Integer 
     
    intShapeCount = ActivePage.Shapes.Count 
     
    ReDim astrUniqueIDs(intShapeCount - 1) As String 
    ReDim alngShapeIDs(intShapeCount - 1) As Long 
     
    intArrayCounter = 0 
     
    For Each vsoShape In ActivePage.Shapes         
        astrUniqueIDs(intArrayCounter) = vsoShape.UniqueID(1) 
        Debug.Print astrUniqueIDs(intArrayCounter) 
        intArrayCounter = intArrayCounter + 1 
    Next 
    
    ActivePage.UniqueIDsToShapeIDs astrUniqueIDs, alngShapeIDs 
     
    intArrayCounter = 0 
 
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    Next 
 
End Sub

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

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

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