Expand/Hide Subordinates with double click

Guessed · #4 04-02-2019, 09:13 PM

In the case of the OrgCharts, there is a setting you could interrogate to find out if it is collapsed or not. Then it is a case of calling the relevant addon macro. If your shape subselects on double clicking then you will need to change Selection to 'Group only' in the behavior dialog.

Code:

Sub ShowerOrGrower()
  Dim sel As Visio.Selection, aShp As Visio.Shape
  Set sel = ActiveWindow.Selection
  Set aShp = sel.PrimaryItem
  If aShp.CellsU("User.ShowSubordinates").Formula = 0 Then
    Call Visio.Application.Addons("OrgC11").Run("/expandsubordinates")
  Else
    Call Visio.Application.Addons("OrgC11").Run("/hidesubordinates")
  End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Double click on a cell to add check mark?	robbinskelly7	Excel	1	02-09-2015 07:05 PM
Excel Files Won't Open With Double Click	ykhalil	Office	1	11-10-2014 05:00 AM
Play Shockwave on a double click	dedine	PowerPoint	4	06-03-2013 08:26 AM
Drop-Down Menu, show-hide, expand-collapse???	300zxmuro	Word	1	02-27-2011 03:02 PM
Cannot Double Click on Microsoft Word Document	weeleong87	Word	0	07-19-2009 05:54 AM