Shapes Property

Shapes returns the Shapes collection. Returns a Shapes collection. This is a read-only property.

Syntax

object.Shapes

This example demonstrates how to return the number of objects in a plot document.

Debug.Print Plot.Shapes.Count

This example demonstrates how to create a rectangle.

Dim Rectangle As Object

Set Rectangle = Plot.Shapes.AddRectangle(Left:=5, Top:=7, Right:=6, Bottom:=10)

This example uses the Shapes property to change the text properties of an object within a composite object

Set Composite = Plot.Import2(FileName:=SurferApp.Path+"\Samples\DemoText.mif")

Composite.Shapes.Item(3).Text = "My New Text"

Composite.Shapes.Item(3).Font.ForeColorRGBA.Color = srfColorBlue

This example changes a few object properties and breaks apart a composite object in a base map layer.

BaseLayer.Shapes.Item(1).Fill.Pattern = "Solid"

BaseLayer.Shapes.Item(2).Name = "Yolo County"

BaseLayer.Shapes.Item(2).SetZOrder(srfZOToFront)

This script displays all the methods and properties in the PlotDocument object.