AutoShapeType property

Article
09/10/2006

Returns the type of the specified shape. The Type property for the shape must be geoAutoShape. Read-only GeoAutoShapeType.

GeoAutoShapeType	Value	Description
geoShapeOval	9	Oval
geoShapeRadius	1009	Circle based on a radius
geoShapeRectangle	1	Rectangle

Applies to

Objects: Shape

Syntax

object.AutoShapeType

Parameters

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

Remarks

To return whether a shape is a freeform, line, or text box, use the Type property of a Shape object.

Example

    Sub GetAutoShapeType()


  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objLoc As MapPoint.Location


  'Set up application and get a Location object
  Set objMap = objApp.ActiveMap
  objApp.Visible = True
  objApp.UserControl = True
  Set objLoc = objApp.ActiveMap.GetLocation(0, 0)


  'Create a shape at this location, zoom to this location
  Set objMap.Location = objLoc
  objMap.Shapes.AddShape geoShapeOval, objLoc, 50, 30


  'Get the shape type
  MsgBox "The shape is type: " + CStr(objMap.Shapes.Item(1).AutoShapeType)


  End Sub