Share via


AutoShapeType property

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