The FillFormat object contains the properties for any object that may be filled, such as an ellipse, rectangle, legend backgrounds, etc.
Properties
Methods
Example
The following script demonstrates how the FillFormat object is used with an ellipse.
Sub Main
'Declares mvApp as an object
Dim mvApp As Object
'Creates an instance of the MapViewer Application
'object and assigns it to the variable named "mvApp"
Set mvApp = CreateObject("MapViewer.Application")
'Makes MapViewer visible
mvApp.Visible = True
'Declares Plot as an object
Dim Plot As Object
'Creates a map document in MapViewer and assigns
'it to the variable named "Plot"
Set Plot = mvApp.Documents.Add(mvDocPlot)
'Declares PlotLayers as an object
Dim PlotLayers As Object
'Assigns the map document layers to the
'variable named "PlotLayers"
Set PlotLayers = Plot.Layers
'Declares CurrentLayer as an object
Dim CurrentLayer As Object
'Assigns the active plot layer to the
'variable named "CurrentLayer"
Set CurrentLayer = PlotLayers.ActiveLayer
'Assign the shapes collection to the
'variable named "MapShapes"
Set MapShapes = CurrentLayer.Shapes
'Declares Ellipse as an object
Dim Ellipse As Object
'Creates an ellipse and assigns it to the
'variable named "Ellipse"
Set Ellipse = MapShapes.AddEllipse(Left:=4, Top:=5, _
Right:=8, Bottom:=3)
'Declares FillFormat as an object
Dim FillFormat As Object
'Assigns the fill properties of the ellipse
'to the variable named "FillFormat"
Set FillFormat = Ellipse.Fill
End Sub