This article contains a sample script for creating a text object and replacing the text with new text.
To run this script:
- Click here to download the BAS file:text_example.bas.
- Click Automation | Scripts | Run, select the BAS file from your downloads directory, and click Open.
OR:
- Copy the script below.
- Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
- Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
- Press Ctrl+V to paste it into the Script Manager.
- Click the Start/Resume icon ( ) in the Script Manager.
*********
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 December 22, 2017
0 Comments