Page.YOffsetWithinReaderSpread-Eigenschaft (Publisher)

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

Syntax

Ausdruck verwendet werden. YOffsetWithinReaderSpread

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Rückgabewert

Einzel

Beispiel

In diesem Beispiel wird ein Shape auf dem zweiten und dritten Zeichenblatt der aktiven Publikation erstellt, und dann wird die Position des Shapes auf dem dritten Zeichenblatt auf die diagonal gegenüberliegende Ecke des Zeichenblatts zum Shape auf dem zweiten Zeichenblatt 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.