Propriedade Layer.NameU (Visio)

Especifica o nome universal de um objeto Layer . Leitura/gravação.

Sintaxe

expressão. NameU

Expressão Uma variável que representa um objeto Layer .

Valor de retorno

Cadeia de caracteres

Comentários

Você pode definir a propriedade NameU de um objeto Style que represente um estilo que seja o padrão do Microsoft Office Visio. Se você tentar definir a propriedade NameU de um estilo padrão do Visio, um erro será gerado.

Observação

A partir do Microsoft Visio 2000, você pode usar nomes locais e universais para se referir a formas, mestres, documentos, páginas, linhas, complementos, células, hiperlinks, estilos, fontes, atalhos mestre, objetos UI e camadas do Visio. Quando um usuário nomeia uma forma, por exemplo, o usuário está especificando um nome local. A partir do Microsoft Office Visio 2003, a planilha ShapeSheet exibe apenas nomes universais em fórmulas de células e valores. (Em versões anteriores, os nomes universais não eram visíveis na interface do usuário.).

Como desenvolvedor, você poderá usar nomes universais em um programa quando não quiser alterar um nome a cada vez que uma solução for localizada. Use a propriedade Name para obter ou definir o nome local de um objeto Hyperlink, Layer, Master, MasterShortcut, Page, Shape, Style ou Row. Use a propriedade NameU para obter ou definir seu nome universal.

Exemplo

Esta macro do VBA (Microsoft Visual Basic for Applications) mostra como usar a propriedade NameU para exibir nomes de camadas. Adicionalmente, ela usa a propriedade Layer para obter uma referência a uma camada específica e a propriedade LayerCount para determinar o número de camadas às quais uma forma foi atribuída.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.