Sub Main

'Create Grapher as an Object
Dim Grapher As Object

'Start Grapher
Set Grapher = CreateObject("Grapher.Application")

Grapher.Visible = True

'Resize selected objects
'Create a new document window
'****************changed this line from .Add to the .Active document
Set Plot7 = Grapher.Documents.Active

'Set the Shapes object -- this will be used to count the number of objects later
Set Shapes = Plot7.Shapes

'Loop through all objects on the page looking for a graph
For i = 1 To Shapes.Count
	If Shapes.Item(i).Type = grfShapeGraph Then
		'If it finds a graph, change the width and height
		'To set a different size, change the numbers in () after .width and .height
		Shapes.Item(i).width(1)
		Shapes.Item(i).height(1)
	End If
'Go to next object
Next i
'All graphs have now been changed

End Sub