Share via

FontColor property

  • Article

Returns or sets the color for the text in the specified shape. Colors are matched to the closest color on the MapPoint palette. Read/write GeoRGBType.

Applies to

Objects:  Shape

Syntax

object.FontColor

Parameters

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

Remarks

GeoRGBType is identical to the Visual Basic MsoRGBType.

Example

    Sub ChangeTextToBlue()


  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, then zoom to this location
  Set objMap.Location = objLoc
  objMap.Shapes.AddTextbox objLoc, 50, 30


  'Add text, then set the color of text to blue
  objMap.Shapes.Item(1).Text = "Some text in the box"
  objMap.Shapes.Item(1).FontColor = vbBlue


  End Sub