Graph.Activate

Makes the graph the top-most document.

Syntax	Parameters	Return Value
-	This function has no parameters.	This function does not return a value.

SVB Example

Adding shapes to a graph:

Option Base 1
Option Explicit
Sub Main
    'add a rectangle to the graph
    ActiveGraph.ExtraObjects.AddFixedShape(scgRectangleShape,.1,.8,.8,.2)
    'Add an arrow to the graph
    ActiveGraph.GraphObject.ExtraObjects.AddFixedArrow(.5, .5, .8, .8, 0)
    'bring the graph to the front
    ActiveGraph.Activate
End Sub

Did you find this helpful?

Yes No