Mehrere Objekte gleichzeitig drehen, um die eigene Achse
#1
Hallo,
ich habe eine Karte mit 1000 Hausnummern, die alle 90° verdreht sind. Die Hausnummer liegen einzeln als Textobjekt vor.
Ich will die Nummern jetzt drehen, aber natürlich jede um den eigenen Drehpunkt, nicht um einen gemeinsamen Drehpunkt.
Wie bekomme ich das am schnellsten hin?

Danke für alle Hinweise
Simon
Zitieren
#2
Hallo Simon,

Du kannst die Zahlen auswählen und einen VBA-Einzeiler in den Direktbereich eingeben und mit Enter abschließen:

[Bild: alledrehen75ks7.gif]

Code:
for each x in activeSelectionrange.Shapes.All: x.rotate 90 :next

Gruß

Koter
Zitieren
#3
Hi Koter,
das wäre ja sehr einfach.
Kannst du noch kurz einen Satz zum "Direktbereich" verlieren? Ich habe in Corel noch nicht mit VBA gearbeitet.
Wie rufe ich ihn auf?

Danke!
Zitieren
#4
Hallo Simon,

mit Alt+F11 öffnet sich der Makro-Editor. Wenn der Direktbereich dort nicht zu sehen ist, kann man ihn über das Menü Ansicht/Direktfenster oder mit Strg+G sichtbar machen.

Gruß

Koter
Zitieren
#5
Brilliant, einfach, effektiv!
Vielen Dank
Zitieren
#6
(13.12.2017, 03:04)koter schrieb: Hallo Simon,

Du kannst die Zahlen auswählen und einen VBA-Einzeiler in den Direktbereich eingeben und mit Enter abschließen:

[Bild: alledrehen75ks7.gif]

Code:
for each x in activeSelectionrange.Shapes.All: x.rotate 90 :next

Gruß

Koter

Hallo zusammen,
das Thema ist leider schon von 2017, aber mich quält das selbe Problem. Wenn ich die Anweisungen im Thread befolge, bekomme ich nur eine Fehlermeldung im Direktfenster, dass der Aufruf außerhalb einer Prozedur ungültig sei. CorelDraw 2020. Kann mir jemand mit einem funktionierenden Makro bzw. einen Code auf die Sprünge helfen?
Das Drehen von vielen Objekten um die jeweils eigene Achse stellt sich mir immer mal wieder und es ist echt ätzend, jedes Objekt einzeln drehen zu müssen. Danke und freundliche Grüße, Ralph

Betriebssystem / Grafik-Software: Win10, CorelDraw 2020
Zitieren
#7
Hallo Ralph,

ein frohes neues Jahr und willkommen im Forum!

Ich habe nur X7, kann also nicht sagen ob es mit Deiner Version klappt.
Du kannst den Code in eine Prozedur schreiben und es damit versuchen:


Code:
Sub AlleDrehen()
   Dim x As Shape
   For Each x In ActiveSelectionRange.Shapes.All
       x.Rotate 90
   Next
End Sub

ich hoffe es funktioniert.

Gruß

Koter
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • Ralph
Zitieren
#8
Hallo Koter,
danke für die Starthilfe, ich habe es mit etwas Stochern hinbekommen. VBA ist mir ein leider Buch mit 7 Sigeln. Dein Code hat mir aber geholfen. Coole Sache!
Danke nochmals und freundliche Grüße, Ralph

Betriebssystem / Grafik-Software: Win10, CorelDraw 2020
Zitieren
#9
Hallo Ralph,
nur noch als Ergänzung zum Macro.

Ein schnelles Transformieren von mehren Objekten ist auch mit der Eigenschaftspipette möglich.
Schau: https://forum.juergens-workshops.de/show...#pid169341

Gruß
Norre
[-] 1 Benutzer bedankt sich bei norre für diesen Beitrag:
  • Ralph
Zitieren
#10
Hallo Norre,
danke für den Tipp, das kannte ich noch nicht! Man muss nur die richtigen Leute fragen!  Big Grin
MfG, Ralph

Betriebssystem / Grafik-Software: Win10, CorelDraw 2020
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Mini-Objekte innerhalb einer Gruppe fassen und löschen migo 10 211 27.03.2024, 09:35
Letzter Beitrag: Boerni
  Objekte positionieren Sandfloh 2 90 23.03.2024, 18:12
Letzter Beitrag: Sandfloh
  Objekte und Punkte verbinden Herbert_M 2 157 05.02.2024, 20:17
Letzter Beitrag: norre
  2023 Objekte aus Dateimanager auf Arbeitsfläche ziehen ? miniprints 0 234 23.01.2024, 15:17
Letzter Beitrag: miniprints
  Textzeilen in einzelne Text-Objekte aufteilen Karthagos 8 646 01.05.2023, 10:34
Letzter Beitrag: Karthagos
Wink Eigene Linienstile Boerni 1 289 25.03.2023, 17:27
Letzter Beitrag: koter
  Befehl: "Alle Objekte entsprerren" LuGa 1 443 12.03.2023, 15:07
Letzter Beitrag: LuGa
  Objekte verschieben nicht mehr möglich Uwe_1108 1 923 21.05.2022, 08:08
Letzter Beitrag: norre
  Mehrere Radien DeBenni87 6 1.425 27.10.2021, 15:14
Letzter Beitrag: alana
  Objekte anzeigen Karthagos 6 1.377 01.08.2021, 16:46
Letzter Beitrag: Karthagos