Layer.NameU 属性 (Visio)
指定 Layer 对象的通用名称。 读/写。
表达式。NameU
表达 一个代表 Layer 对象的变量。
String
您可以设置 Style 对象的 NameU 属性,该对象代表的样式不是默认 Microsoft Office Visio 样式。 如果试图设置默认 Visio 样式的 NameU 属性,则会生成错误。
备注
从 Microsoft Visio 2000 开始,您可以使用本地名称和通用名称来引用 Visio 形状、主控形状、文档、页面、行、加载项、单元格、超链接、样式、字体、主控形状快捷方式、UI 对象和图层。 例如,当用户命名形状时,用户将指定一个本地名称。 从 Microsoft Office Visio 2003 开始,ShapeSheet 电子表格在单元格公式和值中只显示通用名称。 (在以前的版本中,通用名称在用户界面中不可见。
) 作为开发人员,如果您不希望每次本地化解决方案时都更改名称,可以在程序中使用通用名称。 使用 Name 属性获取或设置 Hyperlink、Layer、Master、MasterShortcut、Page、Shape、Style 或者 Row 对象的本地名称。 使用 NameU 属性获取或设置其通用名称。
以下 Microsoft Visual Basic for Applications (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 支持和反馈,获取有关如何接收支持和提供反馈的指南。