Share via

Adjustments Property [Publisher 2003 VBA Language Reference]

  • Article

Returns an Adjustments collection representing all adjustment handles for the specified Shape or ShapeRange object.

expression.Adjustments

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

Adjustment handles correspond to Microsoft Publisher shape sliders.

Example

This example takes the number of adjustments for a given shape range and assigns it to a variable.

Public Sub Counter()

    Dim intCount as Integer

    ' A Shape must be in the active publication and selected.
    intCount = Publisher.ActiveDocument.Selection _
        .ShapeRange(1).Adjustments.Count

End Sub

Applies to | Shape Object | ShapeRange Collection