This article contains a sample script for renaming a graph via automation.
To run this script:
- Click here to download the BAS file: RenameObject.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.
*********
Sub Main Dim GrapherApp As Object Set GrapherApp = CreateObject("Grapher.Application") GrapherApp.Visible = True Dim Docs Set Docs = GrapherApp.Documents(1) Dim Plot As Object Set Plot = Docs.Shapes
'Renames the first object "Test" Plot.Item(1).Name="Test" End Sub
Updated October 18, 2018
Comments
Please sign in to leave a comment.