CollapseAll Macro

Follow the instructions and you will be able to collapse all nodes in a “Solution explorer” tree with a just small keyboard shortcut.

Open Visual Studio 2005
Open the Macro Explorer by pressing Alt+F8 or Clicking View > Other Windows > Macro Explorer
Go to the Macro Explorer tab. In my VS2005 setup, it's in the same area as the Solution Explorer, Class View, etc.
Right-click and choose "New Macro Project".
Name the project "CollapseAll".
(optional)Open the new CollapseAll project and rename the module file (I used CollapseAll here too).
Copy the macro code from the bottom of this message..
Build and Save the Module.
Close the Macro Explorer
Open your Visual Studio settings under Tools > Options.
Click the Keyboard category under Environment in the Options dialog tree.
Type "CollapseAll" into the textbox under "Show commands containing:". This should filter the list of commands and you should see the namespace for your macro. Mine is called Macros.CollapseAll.CollapseAll.CollapseAll
Choose the namespace for your macro in the listbox (Under “Use short cut in” – I selected “Global”)
Choose a shortcut to assign this command to and enter it in the "Press shortcut keys:" textbox. I use “Ctrl+Alt+M”, “Ctrl+Alt+P” and it works great and doesn't interfere with other commands.
Click Assign
Click OK
Enjoy using your new shortcut J

p.s. When you start using this macro, you will notice that there pops up some balloon message in your taskbar notification area. If you are annoyed with this message, click on the balloon and the message won’t pop up further.

Macro Code:

Imports System

Imports EnvDTE

Imports EnvDTE80

Imports System.Diagnostics

Public Module CollapseAll

Sub CollapseAll()

' Get the the Solution Explorer tree

Dim UIHSolutionExplorer As UIHierarchy

UIHSolutionExplorer = DTE.Windows.Item(Constants.vsext_wk_SProjectWindow).Object()

' Check if there is any open solution

If (UIHSolutionExplorer.UIHierarchyItems.Count = 0) Then

' MsgBox(”Nothing to collapse. You must have an open solution.”)

Return

End If

' Get the top node (the name of the solution)

Dim UIHSolutionRootNode As UIHierarchyItem

UIHSolutionRootNode = UIHSolutionExplorer.UIHierarchyItems.Item(1)

UIHSolutionRootNode.DTE.SuppressUI = True

' Collapse each project node

Dim UIHItem As UIHierarchyItem

For Each UIHItem In UIHSolutionRootNode.UIHierarchyItems

'UIHItem.UIHierarchyItems.Expanded = False

If UIHItem.UIHierarchyItems.Expanded Then

Collapse(UIHItem)

End If

Next

' Select the solution node, or else when you click

' on the solution window

' scrollbar, it will synchronize the open document

' with the tree and pop

' out the corresponding node which is probably not what you want.

UIHSolutionRootNode.Select(vsUISelectionType.vsUISelectionTypeSelect)

UIHSolutionRootNode.DTE.SuppressUI = False

End Sub

Private Sub Collapse(ByVal item As UIHierarchyItem)

For Each eitem As UIHierarchyItem In item.UIHierarchyItems

If eitem.UIHierarchyItems.Expanded AndAlso eitem.UIHierarchyItems.Count > 0 Then

Collapse(eitem)

End If

Next

item.UIHierarchyItems.Expanded = False

End Sub

End Module

	embed