Shape.Layer-Eigenschaft (Visio)

Artikel
10/16/2024

Gibt den Layer zurück, dem ein Shape zugewiesen ist. Schreibgeschützt.

Syntax

Ausdruck. Layer (Index)

expression Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Integer	Die Ordinalzahl des abzurufenden Layers.

Rückgabewert

Ebene

Hinweise

Wenn ein Shape drei Layern zugewiesen ist, können der Layer-Eigenschaft die Indizes 1 bis 3 übergeben werden.

Verwenden Sie die LayerCount-Eigenschaft, um die Anzahl von Layern abzurufen, denen ein Shape zugewiesen ist.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Layer-Eigenschaft einen Verweis auf einen bestimmten Layer abrufen. Außerdem wird mit der LayerCount-Eigenschaft die Anzahl von Layern bestimmt, denen ein Shape zugewiesen ist, und mit der Name-Eigenschaft wird der Name des aktuellen Layers abgerufen.

 
Public Sub Layer_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoLayers As Visio.Layers 
 Dim vsoLayer As Visio.Layer 
 
 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 rectangle 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 vsoLayer name is """ & vsoLayer.Name & ".""" 
 
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.

Freigeben über