Sub OrgChartLayoutHangRight() Dim shpOrgChart As Shape Dim dgnRoot As DiagramNode Dim dgnManagerShape As DiagramNode Dim intCount As Integer 'Add an org chart to the active document and 'add the first (parent) node Set shpOrgChart = ActiveDocument.Shapes.AddDiagram( _ Type:=msoDiagramOrgChart...