Effekt 'offset' - Druckversion

Effekt 'offset' - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Effekt 'offset' (/showthread.php?tid=37981)

Seiten: 1 2 3 4

RE: Effekt 'offset' - pieksdi - 07.11.2019

(05.11.2019, 12:59)norre schrieb: 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! Heart

@koter
das Eckenmarko läuft! Daumenhoch

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.

RE: Effekt 'offset' - koter - 07.11.2019

Hallo Regina,

Zitat:...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

RE: Effekt 'offset' - pieksdi - 07.11.2019

(07.11.2019, 16:11)koter schrieb: Hallo Regina,

Zitat:...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!!!