Effekt 'offset'

[pieksdi]

Einen noch..........Versuche mal das:
-->Rechtsklick auf die Menüleiste dann         
     das wäre mein Objektmenü                              

Neuer Tag, neuer Blick.
Ich krieche zu Kreuze  Mein Anordnen-Menü stimmt fast mit Deinem Objektmenü überein. Sorry, ich war total auf den Menütitel fixiert...  Brett vorm Kopp. Das wäre also soweit geklärt.
Hab Dank für Deine enorme Geduld.
Bemerkenswert bleibt, dass Corel das selbst auf Nachfrage nicht erläutert. Im Handbuch wird immer von einem Objektmenü ausgegangen.
Vielleicht bin ich aber auch nur überfortdert von der Komplexität eines Programms, das ich nur in engen Teilbereichen nutze. Und nerve dann andere Leute...
Dir und Koter und Unkraut jedenfalls heißen Dank!

@koter
das Eckenmarko läuft!  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? Tausend Dank jedenfalls, bin einen großen Schritt weiter.

[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

[pieksdi]

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:

Heißen Dank!!!