Juergens-Workshops.de Forum
Objekte drehen - 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: Objekte drehen (/showthread.php?tid=38841)

Objekte drehen - Karthagos - 31.08.2025

Hallo Koter,
 
leider bin ich mit Easy Ribbon noch nicht wirklich weiter gekommen, liegt aber an terminlichen Problemen.

Trotzdem bitte ich Dich, sofern möglich, mit einem Makro/oder 3 Makros zu helfen, damit ich Objekte um 90, 180 und 270° drehen kann.

Der Weg über „Freie Änderung ist doch recht umständlich und ich benötige diese Funktion recht oft.

Man kann natürlich auch mit gedrückter Strg-Taste die Änderung vollziehen, aber ein Makro und Icons in der Symbolleiste wären mir angenehmer.

RE: Objekte drehen - koter - 01.09.2025

Hallo Günther,

Code:
Sub Dreh90()
   Dim s As Shape
   For Each s In ActiveSelectionRange
       s.Rotate 90
   Next
End Sub

Sub Dreh180()
   Dim s As Shape
   For Each s In ActiveSelectionRange
       s.Rotate 180
   Next
End Sub

Sub Dreh270()
   Dim s As Shape
   For Each s In ActiveSelectionRange
       s.Rotate 270
   Next
End Sub

Die Makros drehen alle Objekte in der Auswahl.

Gruß

Koter

RE: Objekte drehen - Karthagos - 01.09.2025

Guten Morgen Koter,

vielen Dank  Dankeschön , perfekt wie immer Bravo , ist schon in meine Symbolleiste eingearbeitet:
[attachment=22307]