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