Effekt 'offset'

[koter]

Hallo,

ich habe Post!

Falls ich die Aufgabe richtig kapiert habe, sollte dieses Makro funktionieren:

Code:

Sub ZentrumAufEcken()
    Dim s As Shape
    Dim r As Shape
    Dim sr As New ShapeRange
    Dim z As Integer
    z = 0
    Set sr = ActiveSelectionRange
    ActiveDocument.BeginCommandGroup "ZentrumAufEcken"
    For Each s In sr
       z = z + 1
       Select Case z
        Case 1
            s.CenterY = ActivePage.TopY
            s.CenterX = ActivePage.LeftX
            sr.Add s
        Case 2
            s.CenterY = ActivePage.TopY
            s.CenterX = ActivePage.SizeWidth
        Case 3
            s.CenterY = ActivePage.BottomY
            s.CenterX = ActivePage.LeftX
        Case 4
            s.CenterY = ActivePage.BottomY
            s.CenterX = ActivePage.RightX
       End Select
    Next
    'Powerclip:
    Set r = ActiveLayer.CreateRectangleRect(ActivePage.BoundingBox)
    r.Outline.Width = 0
    r.Fill.ApplyNoFill
    sr.Shapes.All.AddToPowerClip r
    'Ende
    ActiveDocument.EndCommandGroup
End Sub

Die 4 Objekte auswählen und das Makro ausführen.
Das Ergebnis ist ein Powerclip.
Falls kein PowerClip erwünscht ist, einfach die Zeilen zwischen den Kommentaren ('Powerclip und 'Ende) löschen.
(erstellt und getestet mit X7)
Gruß

Koter