Description

Loops through selected objects. Returns false when selection is exhausted.

Example:

' make all selected element transparent

Dim elem as ElementProp = Page.SelElement()

Do

 elem.MarkUndo ' save element current state, for later undo

 elem.TR_Active=True 'modify object properties...

 elem.TR_Method=0

 elem.TR_Alpha=50

 elem.TR_Options=0

Loop While cbool(elem.nextsel)

Syntax

object

Required. Object name, returned by Dim elem as ElementProp = Page.SelElement()