Description

Undo the diagram check out. Return value is 1 if successful, 0 otherwise. DATATYPE: Integer.

Syntax

Public Function RepoUndoCheckOutDiagram() As Variant

Example

Sub Main 
Dim d As Diagram 
Set d = DiagramManager.ActiveDiagram 

Debug.Clear 

‘ Check out the diagram 
d.RepoCheckoutDiagram(True, ““) 
Debug.Print DiagramManager.GetLastErrorString 

‘ Reset object after checkout reloads it. 
Set d = DiagramManager.ActiveDiagram 
Debug.Print DiagramManager.GetLastErrorString 

d.RepoUndoCheckOutDiagram 
Debug.Print DiagramManager.GetLastErrorString 

End Sub

See Also



  • No labels