Layers.Page-Eigenschaft (Visio)
Ruft das Zeichenblatt ab, das die Layer enthält. Schreibgeschützt.
Syntax
Ausdruck. Page
Ausdruck Eine Variable, die ein Layers-Objekt darstellt.
Rückgabewert
Seite
Hinweise
Wenn sich die Layers-Auflistung in einem master und nicht auf einer Seite befindet, gibt die Page-EigenschaftNothing zurück. Die Page-Eigenschaft einer Layers-Auflistung kann nicht festgelegt werden.
Beispiel
Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Page-Eigenschaft ein Page-Objekt aus verschiedenen anderen Objekten zurückgeben.
Public Sub Page_Example()
Dim vsoPage1 As Visio.Page
Dim vsoPage2 As Visio.Page
Dim vsoTempPage As Visio.Page
Dim vsoLayer1 As Visio.Layer
Dim vsoLayer2 As Visio.Layer
Dim vsoLayers1 As Visio.Layers
Dim vsoLayers2 As Visio.Layers
'Set the current page name to MyPage1.
ActivePage.Name = "MyPage1"
'Use the Page property to return the current
'Page object from the Window object.
Set vsoPage1 = ActiveWindow.Page
'Verify that the expected page was received.
Debug.Print "The active window contains: " & vsoPage1.Name
'Add a second page named MyPage2.
Set vsoPage2 = ActiveDocument.Pages.Add
vsoPage2.Name = "MyPage2"
'Get the Layers collection from each page.
Set vsoLayers1 = vsoPage1.Layers
Set vsoLayers2 = vsoPage2.Layers
'Create a layer for each of the Layers collections.
Set vsoLayer1 = vsoLayers1.Add("ExampleLayer1")
Set vsoLayer2 = vsoLayers2.Add("ExampleLayer2")
'Use the Page property to return the Page object
'from a Layers object.
Set vsoTempPage = vsoLayers1.Page
'Verify that the expected page was received.
Debug.Print " vsoLayers1 is from: " & vsoTempPage.Name
'Use the Page property to return the Page object
'from a Layer object.
Set vsoTempPage = vsoLayer2.Page
'Verify that the expected page was received.
Debug.Print " vsoLayer2 is from: " & vsoTempPage.Name
'Set the active window's page to "MyPage1."
ActiveWindow.Page = "MyPage1"
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.