Item property (Adjustments)

  • Article

Returns or sets an adjustment value based on its position within the specified Adjustments collection for a Shape object with an AutoShapeType property of geoShapeRadius. Read-write Double.

Applies to

Collections:  Adjustments

Syntax

object.Item(Index)

Parameters

Part Description
object Required. An expression that returns an Adjustments collection.
Index Required Variant. Integer representing the index number of the adjustment handle within the collection. Numbering starts at 1. Only the radius shape has adjustments, and it has a single adjustment that controls the angle of the radius.

Remarks

The Item property is the default property for the Adjustments collection.

Example

    Sub CreateRadiusWithAngle()
  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objShp As MapPoint.Shape
  Dim objLoc As MapPoint.Location


  'Set up application and Shape object
  objApp.Visible = True
  objApp.UserControl = True
  Set objMap = objApp.ActiveMap
  Set objLoc = objMap.GetLocation(0, 0)
  Set objShp = objMap.Shapes.AddShape(geoShapeRadius, objLoc, 50, 50)


  'Use adjustment to set the angle for radius line
  objShp.Adjustments.Item(1) = 225


  'Zoom to object to see the results
  objShp.Location.GoTo
  objMap.Altitude = 150
  End Sub