If you’re like me, you’ve probably got every stencil from every vendor always open in Visio. This macro code will close them all in one go.
Sub CloseAllStencils()
'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
For Each doc In Application.Documents
If doc.Type = visTypeStencil Then
Debug.Print (doc.Name)
doc.Close
End If
Next
'Application.ActiveWindow.Windows.ItemEx("CCH-CP12-91").Close
'Restore diagram services
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub