Page.YOffsetWithinReaderSpread-Eigenschaft (Publisher)

Gibt einen Single-Wert zurück, der den Abstand (in Punkt) vom oberen Rand der Leseausgabe bis zum oberen Rand der Seite darstellt. Schreibgeschützt.

Syntax

Ausdruck. YOffsetWithinReaderSpread

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Rückgabewert

Single

Beispiel

In diesem Beispiel wird eine Form auf der zweiten und dritten Seite der aktiven Publikation erstellt und dann die Position der Form auf der dritten Seite auf die diagonal gegenüberliegende Ecke des Zeichenblatts von der Form auf der zweiten Seite festgelegt. Damit dieses Beispiel funktionsfähig ist, muss die aktive Publikation mindestens drei Seiten enthalten.

Sub OffsetShapePositions() 
 Dim shpOne As Shape 
 Dim intLeft As Integer 
 Dim intTop As Integer 
 Dim intWidth As Integer 
 Dim intHeight As Integer 
 
 With ActiveDocument 
 .ViewTwoPageSpread = True 
 
 With .Pages 
 intWidth = 150 
 intHeight = 150 
 intLeft = (.Item(2).Width / 2) - intWidth 
 intTop = InchesToPoints(7) 
 
 Set shpOne = .Item(2).Shapes.AddShape _ 
 (Type:=msoShape5pointStar, Left:=intLeft, _ 
 Top:=intTop, Width:=intWidth, Height:=intHeight) 
 
 intLeft = (.Item(3).XOffsetWithinReaderSpread - _ 
 .Item(2).XOffsetWithinReaderSpread) + (.Item(2) _ 
 .Width - shpOne.Left - shpOne.Width) 
 intTop = (.Item(3).YOffsetWithinReaderSpread - _ 
 .Item(2).YOffsetWithinReaderSpread) + (.Item(2) _ 
 .Height - shpOne.Top - shpOne.Height) 
 
 .Item(2).Shapes.AddShape Type:=msoShape5pointStar, _ 
 Left:=intLeft, Top:=intTop, Width:=intWidth, _ 
 Height:=intHeight 
 End With 
 End With 
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.