Свойства Layers.ItemU (Visio)

Возвращает объект коллекции. Только для чтения.

Синтаксис

выражение. ItemU (NameOrIndex)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
NameOrIndex	Обязательный	Variant	Содержит универсальное имя, уникальный идентификатор или индекс извлекаемого объекта.

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

Уровень

Примечания

Объект можно получить в коллекции "Надстройки", " Гиперссылки", " Слои", "Образцы", " Ярлыки образцов", "Страницы", "Фигуры" или "Стили ", передав имя объекта в виде строкового выражения в Variant.

Если вы получаете объект Shape по имени, свойство ItemU выполняет поиск во всех фигурах на содержащей или содержащей master странице коллекции Shapes в дополнение к содержащей коллекции фигуре. Следовательно, объект Shape , возвращаемый свойством ItemU , может быть фигурой, отсутствующей в коллекции Shapes .

Можно также передать уникальную строку идентификатора объекта Master или Shape в свойство ItemU . Например, вы можете:

objRet = vsoShapes.ItemU("{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Если такая строка передается в свойство ItemU коллекции Shapes , выполняется поиск по всем фигурам, содержащимся в коллекции. Поиск фигур внутри группы внутри содержащей их фигуры не выполняется.

Для поиска всех фигур в коллекции, а также фигур в группах и фигуры, содержащей коллекцию, добавьте к уникальной строке идентификатора звездочку (*). Например, вы можете:

objRet = vsoShapes.ItemU("*{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Пример

В этом макросе Microsoft Visual Basic показано, как использовать свойство ItemU коллекции Pages для получения коллекции "Фигуры ". Затем с помощью свойства ItemU коллекции "Фигуры" печатаются универсальные имена всех фигур на странице 1 в окне интерпретации.

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

Public Sub ItemU_Example() 
  
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.ItemU(1).Shapes  
 
    Debug.Print "Shapes in Document: "; ActiveDocument.Name  
    Debug.Print "          on  Page: "; ActiveDocument.Pages.ItemU(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.ItemU(intCounter).Name  
        Next intCounter 
  
    Else 
 
        Debug.Print " No Shapes On Page" 
  
    End If   
 
End Sub

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

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