Item Property

expression.Item(Index)

expression    Required. An expression that returns an Adjustments object.

Index    Required Long. The index number of the adjustment.

Remarks

AutoShapes and WordArt objects have up to eight adjustments.

Example

This example adds two crosses to the active document and then sets the value for adjustment one (the only one for this type of AutoShape) on each cross.

Dim docActive As Document

Set docActive = ActiveDocument
With docActive.Shapes
    .AddShape(msoShapeCross, _
        10, 10, 100, 100).Adjustments.Item(1) = 0.4
    .AddShape(msoShapeCross, _
        150, 10, 100, 100).Adjustments.Item(1) = 0.2
End With
		

This example has the same result as the previous example even though it doesn't explicitly use the Item property.

Dim docActive As Document

Set docActive = ActiveDocument
With docActive.Shapes
    .AddShape(msoShapeCross, _
        10, 10, 100, 100).Adjustments(1) = 0.4
    .AddShape(msoShapeCross, _
        150, 10, 100, 100).Adjustments(1) = 0.2
End With