Page. Layers-Eigenschaft (Visio)Page.Layers property (Visio)

Gibt die Layers -Auflistung eines Objekts zurück.Returns the Layers collection of an object. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. Ebenenexpression.Layers

Ausdruck Eine Variable, die ein Page -Objekt darstellt.expression A variable that represents a Page object.

RückgabewertReturn value

EbenenLayers

BeispielExample

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Layers-Eigenschaft Layern Shapes hinzufügen.This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Layers property to add shapes to layers. Außerdem wird mit der Layer-Eigenschaft ein Verweis auf einen bestimmten Layer abgerufen, mit der LayerCount-Eigenschaft wird die Anzahl von Layern bestimmt, denen ein Shape zugewiesen ist, und mit der Name-Eigenschaft wird der Name des aktuellen Layers abgerufen.It also uses the Layer property to get a reference to a particular layer, the LayerCount property to determine the number of layers to which a shape is assigned, and the Name property to get the name of the current layer.

 
Public Sub Layers_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoLayer As Visio.Layer 
 Dim vsoLayers As Visio.Layers 
 
 If ActiveDocument Is Nothing Then 
 Documents.Add ("") 
 End If 
 
 Set vsoPage = ActivePage 
 If vsoPage Is Nothing Then 
 Set vsoPage = ActiveDocument.Pages(1) 
 End If 
 
 'Draw a rectangle. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Get the Layers collection. 
 Set vsoLayers = vsoPage.Layers 
 
 'Create a layer named ExampleLayer1 and add the shape to it. 
 Set vsoLayer = vsoLayers.Add("ExampleLayer1") 
 vsoLayer.Add vsoShape, 1 
 
 'Create a layer named ExampleLayer2 and add the shape to it. 
 Set vsoLayer = vsoLayers.Add("ExampleLayer2") 
 vsoLayer.Add vsoShape, 1 
 
 'Verify that the shape has been assigned to 2 layers. 
 Debug.Print "The shape is assigned to " & vsoShape.LayerCount & " layers." 
 
 'Get a reference to the first layer. 
 Set vsoLayer = vsoShape.Layer(1) 
 
 'Verify by using the Name property. 
 Debug.Print "Current layer name is """ & vsoLayer.Name & ".""" 
 
End Sub

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.