通过

Adjustments.Item Property

  • 项目
Word Developer Reference

Returns or sets the adjustment value specified by the Index argument. Read/write Single.

Syntax

expression.Item(Index)

expression   An expression that returns an Adjustments object.

Parameters

Name Required/Optional Data Type Description
Index Required Long The index number of the adjustment.

Remarks

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. AutoShapes and WordArt 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.

Visual Basic for Applications 
  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.

Visual Basic for Applications 
  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

See Also