次の方法で共有

Layer.NameU Property

  • [アーティクル]
Visio Automation Reference

Specifies the universal name of a Layer object. Read/write.

Version Information
 Version Added:  Visio 2.0

Syntax

expression.NameU

expression   A variable that represents a Layer object.

Return Value
String

Remarks

You can set the NameU property of a Style object that represents a style that is not a default Microsoft Office Visio style. If you attempt to set the NameU property of a default Visio style, an error is generated.

ms426157.vs_note(en-us,office.12).gif  Note
Beginning with Microsoft Visio 2000, you can use both local and universal names to refer to Visio shapes, masters, documents, pages, rows, add-ons, cells, hyperlinks, styles, fonts, master shortcuts, UI objects, and layers. When a user names a shape, for example, the user is specifying a local name. Beginning with Microsoft Office Visio 2003, the ShapeSheet spreadsheet displays only universal names in cell formulas and values. (In prior versions, universal names were not visible in the user interface.)

As a developer, you can use universal names in a program when you don't want to change a name each time a solution is localized. Use the Name property to get or set a Hyperlink, Layer, Master, MasterShortcut, Page, Shape, Style, or Row object's local name. Use the NameU property to get or set its universal name.

Example

This Microsoft Visual Basic for Applications (VBA) macro shows how to use the NameU property to display layer names. It also uses the Layer property to get a reference to a particular layer and the LayerCount property to determine the number of layers to which a shape is assigned.

Visual Basic for Applications 
  
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

See Also