Table of contents
Collapse the table of content
Expand the table of content

Shape.LayerCount Property (Visio)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

Returns the number of layers to which a shape is assigned. Read-only.


expression . LayerCount

expression A variable that represents a Shape object.

Return Value



A shape is assigned to zero or more layers.


This Microsoft Visual Basic for Applications (VBA) macro shows how to use the LayerCount property to determine the number of layers to which a shape is assigned. It also uses the Layers property to add a layer to a drawing and the Name property to get the name of the current layer.

Public Sub LayerCount_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 shape is assigned to " &; vsoShape.LayerCount &; " layers." 

 'Get a reference to the first layer. 
 Set vsoLayer = vsoShape.Layer(1) 

 'Verify by using the Name property. 
 Debug.Print "Current layer name is """ &; vsoLayer.Name &; ".""" 

End Sub
© 2018 Microsoft