Layer.Add-Methode (Visio)

Fügt einem Layer-Objekt ein Shape-Objekt hinzu.

Syntax

Ausdruck. Hinzufügen (SheetObject, fPresMems)

Ausdruck Eine Variable, die ein Layer-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SheetObject	Erforderlich	[IVSHAPE]	Das neue dem Layer-Objekt hinzugefügte Shape-Objekt.
fPresMems	Erforderlich	Integer	Mit Null wird ein Teil-Shape aus früheren Layerzuweisungen entfernt, mit anderen Werten bleiben Layerzuweisungen erhalten.

Rückgabewert

Nichts

Bemerkungen

Wenn es sich bei dem Shape um eine Gruppe handelt und fPresMems nicht Null ist, bleiben die aktuellen Layerzuweisungen der Komponenten-Shapes der Gruppe erhalten, und sie werden zudem diesem Layer hinzugefügt. Wenn fPresMems Null ist, werden die Komponenten-Shapes diesem Layer neu zugewiesen, und sie verlieren die aktuellen Layerzuweisungen.

Beispiel

Mit dem folgenden Beispiel wird gezeigt, wie die Add-Methode zum Hinzufügen von Shape-Objekte zu einem Layer-Objekt verwendet wird. Wenn das Shape-Objekt, das Sie einem Layer-Objekt hinzufügen, ein Gruppen-Shape ist, verwenden Sie das fPresMems-Argument der Add-Methode, um anzugeben, ob die Komponenten-Shapes der Gruppe frühere Layerzuweisungen behalten oder verlieren sollen. Wenn es sich bei dem hinzugefügten Shape nicht um ein Gruppen-Shape handelt, hat das fPresMems-Argument keine Auswirkungen, ist aber dennoch erforderlich.

Im Beispiel werden zwei neue Ebenen erstellt. Zwei Rechteckformen werden gezeichnet und dann der ersten Ebene hinzugefügt. Anschließend werden die Rechtecke in einer Gruppenform gruppiert. Die Gruppenform wird dann ausgewählt und dupliziert, und die duplizierten Gruppenformen werden der zweiten Ebene auf zwei verschiedene Arten hinzugefügt.

Ebenenzuweisungen der Komponenten-Shapes von vsoShapeGroup2 werden beibehalten, indem ein Wert ungleich 0 für das fPresMems-Argument der Add-Methode übergeben wird. Vorherige Ebenenzuweisungen der Komponentenformen von vsoShapeGroup1 gehen jedoch verloren, wenn null für dieses Argument an die Add-Methode übergeben wird. Daher werden die Komponenten-Shapes von vsoShapeGroup1 nur vsoLayer2 zugewiesen, während die Komponenten von vsoShapeGroup2vsoLayer1 und vsoLayer2 zugewiesen sind.

Public Sub AddShapesToLayer_Example() 
 
 Dim vsoDocument As Visio.Document 
 Dim vsoPages As Visio.Pages 
 Dim vsoPage As Visio.Page 
 Dim vsoLayers As Visio.Layers 
 Dim vsoLayer1 As Visio.Layer 
 Dim vsoLayer2 As Visio.Layer 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShapeGroup1 As Visio.Shape 
 Dim vsoShapeGroup2 As Visio.Shape 
 
 'Add a Document object based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Get the Pages collection and add a page to the collection. 
 Set vsoPages = vsoDocument.Pages 
 Set vsoPage = vsoPages.Add 
 
 'Get the Layers collection and add two layers 
 'to the collection. 
 Set vsoLayers = vsoPage.Layers 
 Set vsoLayer1 = vsoLayers.Add("MyLayer") 
 Set vsoLayer2 = vsoLayers.Add("MySecondLayer") 
 
 'Draw two rectangles. 
 Set vsoShape1 = vsoPage.DrawRectangle(3, 3, 5, 6) 
 Set vsoShape2 = vsoPage.DrawRectangle(4, 4, 6, 7) 
 
 'Assign each rectangle to the first layer. 
 vsoLayer1.Add vsoShape1, 0 
 vsoLayer1.Add vsoShape2, 0 
 
 'Select the two rectangles and group them. 
 ActiveWindow.SelectAll 
 ActiveWindow.Selection.Group 
 
 'Duplicate the group and set each group as a Shape object. 
 Set vsoShapeGroup1 = vsoPage.Shapes(1) 
 vsoShapeGroup1.Duplicate 
 Set vsoShapeGroup2 = vsoPage.Shapes(2) 
 
 'Add the first grouped shape to the second layer. 
 'This group's component shapes are added to the layer 
 'but lose their previous layer assignment. 
 vsoLayer2.Add vsoShapeGroup1, 0 
 
 'Add the second grouped shape to the second layer. 
 'This group's component shapes are added to the layer 
 'but retain their previous layer assignment. 
 vsoLayer2.Add vsoShapeGroup2, 1 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.