ActiveShapes Property

The ActiveShapes property returns the Shapes collection on the active layer. This is a read-only property.

Syntax

object.ActiveShapes

Example

This example assigns the shapes collection of the active layer to the variable name MapShapes.

Dim mvApp As Object

Set mvApp = CreateObject("MapViewer.Application")

Set Plot = mvApp.Documents.Add(DocType:=mvDocPlot)

Set MapLayers = Plot.Layers

Set CurrentLayer = MapLayers.ActiveLayer

Set MapShapes = Plot.ActiveShapes