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
  Seltsamer Effekt in der PDF-Ausgabe mwkempire 3 286 25.07.2018, 10:13
Letzter Beitrag: mwkempire
  Desintegrations Effekt Sabine33 10 695 02.02.2018, 01:35
Letzter Beitrag: Unkraut
  3D-Effekt beim Puzzle Heinzi 18 1.294 16.08.2017, 00:04
Letzter Beitrag: koter
  "Stempel-Effekt" - Corel X4 NiSa 21 20.102 22.03.2017, 20:49
Letzter Beitrag: Heinzi
  Bleistift-Radiergummi Effekt Pixel Punk 7 2.181 14.09.2012, 23:16
Letzter Beitrag: mvm
  Effekt: Durchbrochenes Papier fucruiser 2 1.043 12.08.2012, 21:21
Letzter Beitrag: Helmut
  Text mit 3D-Effekt bearbeiten stadler d 1 4.735 18.02.2011, 14:57
Letzter Beitrag: Unkraut
  Effekt eines "Gewellten Blattes" erstellen. anorak 1 1.340 16.02.2011, 14:22
Letzter Beitrag: Hartmut
  3D-Effekt :MS: 11 2.590 15.04.2010, 09:45
Letzter Beitrag: Unkraut
  brushed metal effekt Shinobi 5 4.987 31.03.2010, 17:18
Letzter Beitrag: Nachtviole