Home Library Learn Samples Downloads Support Community Forums
MSDN Library
Office and SharePoint development
Office client development
Office 2013
Visio 2013
Welcome to the Visio 2013 Automation reference
Object Model Reference (Visio 2013 Automation)
Selection Object (Visio)
Methods
Selection.AddToContainers Method (Visio)
Selection.AddToGroup Method (Visio)
Selection.Align Method (Visio)
Selection.AutomaticLink Method (Visio)
Selection.AvoidPageBreaks Method (Visio)
Selection.BoundingBox Method (Visio)
Selection.BreakLinkToData Method (Visio)
Selection.BringForward Method (Visio)
Selection.BringToFront Method (Visio)
Selection.Combine Method (Visio)
Selection.ConnectShapes Method (Visio)
Selection.ConvertToGroup Method (Visio)
Selection.Copy Method (Visio)
Selection.Cut Method (Visio)
Selection.Delete Method (Visio)
Selection.DeleteEx Method (Visio)
Selection.DeselectAll Method (Visio)
Selection.Distribute Method (Visio)
Selection.DrawRegion Method (Visio)
Selection.Duplicate Method (Visio)
Selection.Export Method (Visio)
Selection.FitCurve Method (Visio)
Selection.Flip Method (Visio)
Selection.FlipHorizontal Method (Visio)
Selection.FlipVertical Method (Visio)
Selection.Fragment Method (Visio)
Selection.GetCallouts Method (Visio)
Selection.GetContainers Method (Visio)
Selection.GetIDs Method (Visio)
Selection.Group Method (Visio)
Selection.Intersect Method (Visio)
Selection.Join Method (Visio)
Selection.Layout Method (Visio)
Selection.LayoutChangeDirection Method (Visio)
Selection.LayoutIncremental Method (Visio)
Selection.LinkToData Method (Visio)
Selection.MemberOfContainersIntersection Method (Visio)
Selection.MemberOfContainersUnion Method (Visio)
Selection.Move Method (Visio)
Selection.MoveToSubprocess Method (Visio)
Selection.Offset Method (Visio)
Selection.RemoveFromContainers Method (Visio)
Selection.RemoveFromGroup Method (Visio)
Selection.ReplaceShape Method (Visio)
Selection.Resize Method (Visio)
Selection.ReverseEnds Method (Visio)
Selection.Rotate Method (Visio)
Selection.Rotate90 Method (Visio)
Selection.Select Method (Visio)
Selection.SelectAll Method (Visio)
Selection.SendBackward Method (Visio)
Selection.SendToBack Method (Visio)
Selection.SetContainerFormat Method (Visio)
Selection.SetQuickStyle Method (Visio)
Selection.Subtract Method (Visio)
Selection.SwapEnds Method (Visio)
Selection.Trim Method (Visio)
Selection.Ungroup Method (Visio)
Selection.Union Method (Visio)
Selection.UpdateAlignmentBox Method (Visio)
Expand Minimize
This topic has not yet been rated - Rate this topic

Selection.AddToGroup Method (Visio)

Office 2013

Published: July 16, 2012

Adds the selected shapes to the selected group.

Version Added: Visio 2.0

expression .AddToGroup

expression A variable that represents a Selection object.

Return Value

Nothing

The current selection must contain both the shapes to add and the group to which you want to add them. The group must be the primary selection or the only group in the selection.

The following macro shows how to use the AddToGroup method to add selected shapes to a selected group.

Before running this macro, open the Basic Shapes stencil or a document based on the Basic Diagram template.

VBA
Copy 
 
Public Sub AddToGroup_Example() 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Square"), 3, 8 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Pentagon"), 4, 8 
 
 Application.ActiveWindow.SelectAll 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Pentagon"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Square"), visSelect 
 ActiveWindow.Selection.Group 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Ellipse"), 5, 6 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Ellipse"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Sheet.3"), visSelect 
 ActiveWindow.Selection.AddToGroup 
 
End Sub
Did you find this helpful?
(1500 characters remaining)
© 2013 Microsoft. All rights reserved.