Document.ActiveLayer

Property ActiveLayer As Layer

Member of Document

The ActiveLayer property represents the active layer of the current document.

The ActiveLayer property returns a read-only value.

The following VBA example moves all selected shapes to the active layer.

Sub Test()

ActiveDocument.Selection.Layer = ActiveDocument.ActiveLayer

End Sub