Effekt 'offset'
#31
Lightbulb 
(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.

Betriebssystem / Grafik-Software: WIN10 - CorelGraphicSuite2018 20.1.0.708 Vollversion
Zitieren
#32
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
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • pieksdi
Zitieren
#33
(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!!!

Betriebssystem / Grafik-Software: WIN10 - CorelGraphicSuite2018 20.1.0.708 Vollversion
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Vintage Effekt Reserl 15 2.405 10.01.2021, 13:15
Letzter Beitrag: koter
  Grunge-Effekt auf Schrift oder jpg Mecky 12 3.496 04.10.2020, 08:09
Letzter Beitrag: Henni
  Linien mit Outline-Effekt David.P 12 2.530 27.06.2020, 15:50
Letzter Beitrag: Suc
  Seltsamer Effekt in der PDF-Ausgabe mwkempire 3 1.134 25.07.2018, 10:13
Letzter Beitrag: mwkempire
  Desintegrations Effekt Sabine33 10 1.820 02.02.2018, 01:35
Letzter Beitrag: Unkraut
  3D-Effekt beim Puzzle Heinzi 18 2.665 16.08.2017, 00:04
Letzter Beitrag: koter
  "Stempel-Effekt" - Corel X4 NiSa 21 25.027 22.03.2017, 20:49
Letzter Beitrag: Heinzi
  Bleistift-Radiergummi Effekt Pixel Punk 7 3.189 14.09.2012, 23:16
Letzter Beitrag: mvm
  Effekt: Durchbrochenes Papier fucruiser 2 1.532 12.08.2012, 21:21
Letzter Beitrag: Helmut
  Text mit 3D-Effekt bearbeiten stadler d 1 5.334 18.02.2011, 14:57
Letzter Beitrag: Unkraut