Set the fill color of an object in Grapher via automation


In Grapher, when the fill color is changed, the pattern is automatically changed. In a script, both the pattern and color must be set separately. In addition to setting the ForeColor property, it is also necessary to set the object's fill Pattern property. The example below creates a rectangle and sets the rectangle fill to a solid blue.

To run this script:

  1. Click here to download the BAS file: Fill_Color_and_Fill_Pattern.BAS
  2. Click Automation | Scripts | Run, select the BAS file from your downloads directory, and click Open.


  1. Copy the script below.
  2. Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
  3. Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
  4. Press Ctrl+V to paste it into the Script Manager.
  5. Click the Start/Resume icon () in the Script Manager.


Sub Main
    Dim GrapherApp As Object
    Set GrapherApp = CreateObject("Grapher.Application")
    GrapherApp.Visible = True
'Create a new plot window Set Plot1 = GrapherApp.Documents.Add(grfPlotDoc)
'Create a rectangle Set Rectangle1 = Plot1.Shapes.AddRectangle(2,5,5,7)
'Set the Fill pattern and foreground color Rectangle1.Fill.SetPattern("Solid") Rectangle1.Fill.foreColor = grfColorBlue End Sub


Updated August 2019

Was this article helpful?
0 out of 0 found this helpful



Please sign in to leave a comment.