Description

Selected elements interface.

Syntax

Remarks

Returns the selection on page.

Example

    ' check for wrap

    Dim obj As ElementProp = Page.SelElement()

 

    Dim nObj = obj.NumShapes

    Dim y As Long = 0

    Dim y1 = obj.ShapeBBox(0, 1)

    If y1 > 0 Then  ' object wraps around something

      y = y + y1    ' adjust y-pos

    End If

Context

Page designer

See also

SelElement.Text

SelElement.PlainText