This example adds two crosses to myDocument
and then sets the value for adjustment one (the only one on this type of AutoShape) on each cross.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.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.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddShape(msoShapeCross, 10, 10, 100, 100) _
.Adjustments(1) = 0.4
.AddShape(msoShapeCross, 150, 10, 100, 100) _
.Adjustments(1) = 0.2
End With