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

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

Синтаксис

выражения. NameU

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

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

Строка

Комментарии

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

Примечание

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

Как разработчик вы можете использовать универсальные имена в программе, если вы не хотите менять имя каждый раз, когда решение локализовано. Используйте свойство Name , чтобы получить или установить локальное имя объекта Hyperlink, Layer, Master, MasterShortcut, Page, Shape, Style или Row . Используйте свойство NameU , чтобы получить или установить его универсальное имя.

Пример

В этом макрос Visual Basic для приложений Microsoft (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 и обратная связь.