Effekt 'offset'

[koter]

Hallo Regina,

...Es verteilt zwar vier Elmente, wo ich eigentlich nur eines habe. Das kann ich aber durch duplizieren und stapeln lösen. Oder könnte man das noch mit einbauen?...

Ja, das geht:

Code:

Sub ZentrumAufEcken2()
   Dim s As Shape, s1 As Shape, r As Shape
   Dim sr As New ShapeRange
   Dim z As Integer
   
   If ActiveSelectionRange.Shapes.Count = 0 Then Exit Sub
   Set s1 = ActiveSelectionRange.Shapes(1)
   ActiveDocument.BeginCommandGroup "ZentrumAufEcken"
   For z = 1 To 4
       Set s = s1.Duplicate
       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
            sr.Add s
        Case 3
            s.CenterY = ActivePage.BottomY
            s.CenterX = ActivePage.LeftX
            sr.Add s
        Case 4
            s.CenterY = ActivePage.BottomY
            s.CenterX = ActivePage.RightX
            sr.Add s
       End Select
   Next
   'Powerlip:
   Set r = ActiveLayer.CreateRectangleRect(ActivePage.BoundingBox)
   r.Outline.Width = 0
   r.Fill.ApplyNoFill
   sr.Shapes.All.AddToPowerClip r
   'Ende
   ActiveDocument.EndCommandGroup
End Sub

 
Gruß

Koter