Layer.Shapes

Property Shapes As Shapes

Member of Layer

The Shapes property returns a collection of all shapes on a specified layer.

The Shapes property returns a read-only value.

The following code example deletes the active layer and moves all shapes on the active layer to the next layer on the page:

Sub Test() 
 Dim Target As Layer 
 Dim s As Shape 
 Dim idx As Long 
 If ActivePage.Layers.Count = 1 Then 
  MsgBox "Cannot delete a single layer" 
 End If 
 If ActiveLayer.Shapes.Count Then 
  idx = 1 ' Determining the index of the active layer 
  For Each Target In ActivePage.Layers 
   If Target Is ActiveLayer Then Exit For 
     idx = idx + 1 
  Next Target 
  ' Finding the index of target layer 
  If idx = 1 Then idx = 2 Else idx = idx - 1 
  Set Target = ActivePage.Layers(idx) 
  ActiveDocument.ClearSelection 
  ActiveLayer.Shapes.All.AddToSelection 
  ActiveSelection.Layer = Target 
 End If 
 ActiveLayer.Delete 
End Sub