Follow

How can I add a text object with Grapher automation?

This article contains a sample script for creating a text object and replacing the text with new text.

To run this script:

  1. Copy the script below, or click here to download the BAS file: text_example.bas.
  2. In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Grapher 12\Scripter.
  3. Double click on Scripter.exe to launch Scripter.
  4. Press Ctrl+A to select all of the existing lines then press Delete.
  5. If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
  6. Click Script | Run to run the script.
     

*********

Option Explicit
Sub Main
  Dim grfApp, doc, txt1 As Object

  Set grfApp = CreateObject("Grapher.Application")
  grfApp.Visible = True
  Set doc = grfApp.Documents.Add(grfPlotDoc)

  Set txt1 = doc.Shapes.AddText(3,4,"initial text")

  txt1.Font.size = 24
  txt1.Font.color = grfColorBlue
  txt1.text = "new contents"

End Sub

 

Updated October 28, 2016

Was this article helpful?
0 out of 0 found this helpful
Have more questions? Submit a request

0 Comments

Please sign in to leave a comment.