Свойство Layer.NameU (Visio)

Определяет универсальное имя объекта слоя . Для чтения и записи.

Синтаксис

выражение. ИмяU

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

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

String

Примечания

Вы можете задать свойство NameU объекта Style , который представляет стиль, отличный от стиля Microsoft Office Visio по умолчанию. При попытке задать свойство NameU стиля Visio по умолчанию возникает ошибка.

Примечание.

Начиная с Microsoft Visio 2000, для обозначения фигур, образцов, документов, страниц, строк, надстроек, ячеек, гиперссылок, стилей, шрифтов, master ярлыков, объектов пользовательского интерфейса и слоев можно использовать как локальные, так и универсальные имена. Например, когда пользователь дает имя фигуре, он указывает локальное имя. Начиная с Microsoft Office Visio 2003, в формулах и значениях ячеек отображается только таблица свойств фигур. (В предыдущих версиях универсальные имена не отображались в пользовательском интерфейсе.)

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

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство NameU для отображения имен слоев. Оно также использует свойство Layer , чтобы получить ссылку на определенный слой, и свойство LayerCount , чтобы определить количество слоев, которым назначена фигура.

 
Public Sub NameU_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoLayers As Visio.Layers 
 Dim vsoLayer As Visio.Layer 
 
 If ActiveDocument Is Nothing Then 
 Documents.Add ("") 
 End If 
 
 Set vsoPage = ActivePage 
 If vsoPage Is Nothing Then 
 Set vsoPage = ActiveDocument.Pages(1) 
 End If 
 
 'Draw a rectangle. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Get the Layers collection. 
 Set vsoLayers = vsoPage.Layers 
 
 'Create a layer named ExampleLayer1 and add the shape to it. 
 Set vsoLayer = vsoLayers.Add("ExampleLayer1") 
 vsoLayer.Add vsoShape, 1 
 
 'Create a layer named ExampleLayer2 and add the shape to it. 
 Set vsoLayer = vsoLayers.Add("ExampleLayer2") 
 vsoLayer.Add vsoShape, 1 
 
 'Verify that the shape has been assigned to 2 layers. 
 Debug.Print "The page has " & vsoShape.LayerCount & " layers." 
 
 'Get a reference to the first layer. 
 Set vsoLayer = vsoShape.Layer(1) 
 
 'Verify by using the NameU property. 
 Debug.Print "Current vsoLayer name is """ & vsoLayer.NameU & ".""" 
 
End Sub

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

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