次の方法で共有

Selection.AddToGroup メソッド (Visio)

  • [アーティクル]

選択したグループに選択した図形を追加します。

構文

式。AddToGroup

式Selection オブジェクトを表す変数。

戻り値

なし

解説

追加する図形、およびそれらの図形の追加先となるグループの両方を選択している必要があります。 このグループは、最上位の選択項目になっているか、または選択している項目内では唯一のグループでなければなりません。

例

次のマクロは、AddToGroup メソッドを使用して、選択した図形を選択したグループに追加する方法を示しています。

このマクロを実行する前に、[基本図] テンプレートに基づいて作成した [基本図形] ステンシルまたは図面を開きます。

 
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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。