Adjustments.Item-Eigenschaft (Word)
Gibt den durch das Index-Argument angegebenen Anpassungswert zurück oder legt diese fest. Wert vom Typ Single mit Lese-/Schreibzugriff.
Syntax
expression.Item (Index)
Ausdruck Ein Ausdruck, der ein Adjustments-Objekt zurückgibt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Index | Erforderlich | Long | Die Indexnummer der Anpassung. |
Hinweise
Bei linearen Korrekturen ein Wert von 0,0 entspricht im Allgemeinen den linken oder oberen Rand des Shapes, und ein Wert von 1.0 im Allgemeinen entspricht den rechten oder unteren Begrenzung der Form. Adjustments können jedoch über Shape Grenzen für einige Shapes übergeben. Bei radial Korrekturen bezieht sich ein Wert von 1.0 auf die Breite der Form. Für Winkel Anpassungen ist der Anpassungswert in Grad angegeben. Die Item -Eigenschaft gilt nur für Formen, die Anpassungen aufweisen. AutoForm und WordArt haben bis zu acht Anpassungen.
Beispiel
In diesem Beispiel werden dem aktiven Dokument zwei Kreuze hinzugefügt, und dann wird der Wert für die Anpassung 1 (die einzige auf diesem AutoForm-Typ) auf jedem Kreuz festgelegt.
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
In diesem Beispiel hat dasselbe Ergebnis wie das vorherige Beispiel, obwohl es nicht explizit die Item -Eigenschaft verwendet.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.