Adjustments.Item property (Publisher)

Article
09/13/2021

Returns or sets a Variant indicating the adjustment value specified by the Index argument. Read/write.

Syntax

expression.Item (Index)

expression A variable that represents an Adjustments object.

Parameters

Name	Required/Optional	Data type	Description
Index	Required	Integer	The index number of the adjustment.

Remarks

AutoShapes, connectors, and WordArt objects can have up to eight adjustments.

For linear adjustments, an adjustment value of 0.0 generally corresponds to the left or top edge of the shape, and a value of 1.0 generally corresponds to the right or bottom edge of the shape. However, adjustments can pass beyond shape boundaries for some shapes.

For radial adjustments, an adjustment value of 1.0 corresponds to the width of the shape.

For angular adjustments, the adjustment value is specified in degrees.

The Item property applies only to shapes that have adjustments.

Example

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

With ActiveDocument.Pages(1).Shapes 
 .AddShape(Type:=msoShapeCross, Left:=10, Top:=10, Width:=100, _ 
 Height:=100).Adjustments.Item(1) = 0.4 
 .AddShape(Type:=msoShapeCross, Left:=150, Top:=10, Width:=100, _ 
 Height:=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.

With ActiveDocument.Pages(1).Shapes 
 .AddShape(Type:=msoShapeCross, Left:=10, Top:=10, Width:=100, _ 
 Height:=100).Adjustments(1) = 0.4 
 .AddShape(Type:=msoShapeCross, Left:=150, Top:=10, Width:=100, _ 
 Height:=100).Adjustments(1) = 0.2 
End With

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Share via