Adjustments Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
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