Layers.Add-Methode (Visio)

Fügt einer Layers-Auflistung ein neues Layer-Objekt hinzu.

Syntax

Ausdruck. Hinzufügen (LayerName)

Ausdruck Eine Variable, die ein Layers-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
LayerName	Erforderlich	String	Der Name des neuen Layers.

Rückgabewert

Ebene

Beispiel

Mit dem folgenden Makro wird gezeigt, wie einer Layers-Auflistung ein Layer-Objekt hinzugefügt wird.

Public Sub AddLayer_Example() 
 
 Dim vsoDocument As Visio.Document 
 Dim vsoPages As Visio.Pages 
 Dim vsoPage As Visio.Page 
 Dim vsoLayers As Visio.Layers 
 Dim vsoLayer As Visio.Layer 
 
 'Add a document 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 a layer named "MyLayer" 
 'to the collection. 
 Set vsoLayers = vsoPage.Layers 
 Set vsoLayer = vsoLayers.Add("MyLayer") 
 
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.