|
|
You can use the CloseAllWindows function to close all open diagrams and text editor windows.
|
Set objDiagrams = ActiveProject.Item("Diagrams")
Set objDiagram = objDiagrams.Item("Class Diagram", "Class Diagram1")
strDiagram = objDiagram.Property("Id")
Call Studio.CloseDiagram(strDiagram)