This is an instance of a diagram contained in the encyclopedia.
To return the currently active diagram as an object, use:
Dim oApplication As SA2001.Application Dim oDiagram As Diagram Set oApplication = New Application Set oDiagram = oApplication.oEncyclopedia.GetCurrentDiagram
