Share via

Adjustments property

  • Article

Returns the Adjustments collection that contains the values for the adjustment in the specified shape. The Shape object must have an AutoShapeType property of geoShapeRadius. Read-only.

Applies to

Objects:  Shape

Syntax

object.Adjustments

Parameters

Part Description
object Required. An expression that returns a Shape object.

Example

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


    '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)


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


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