Beiträge: 3
Themen: 2
Danke erhalten: 0 in 0 Posts
Danke gesagt: 2
Registriert seit: 04.01.2022
Hallo an alle,
ich habe eine Gruppe von 150 Kreisen (Kurven) mit einem Durchmesser von 1,5 mm. Diese würde ich gerne gegen Kreise mit einem Durchmesser von 2 mm tauschen.
Mit "suchen und ersetzen" komme ich da nicht weiter; sowas wie "Objekt x" gegen "Objekt y" tauschen scheint es nicht zu geben.
Wie gehe ich da am besten vor?
Vielen Dank vorab für eure Tipps.
Betriebssystem / Grafik-Software: W10 CGS2021
•
Beiträge: 118
Themen: 4
Danke erhalten: 28 in 28 Posts
Danke gesagt: 16
Registriert seit: 14.01.2019
naja, ich kenne jetzt den Rest der Zeichnung nicht .... ich würde auf die Schnelle alle markieren und dann 133,33% bei der Größe eingeben....
Betriebssystem / Grafik-Software: Win10 64 bit; Corel Graphics Suite 2019; 64 bit
•
Beiträge: 4.892
Themen: 198
Danke erhalten: 304 in 282 Posts
Danke gesagt: 65
Registriert seit: 14.12.2011
04.01.2022, 14:43
(Dieser Beitrag wurde zuletzt bearbeitet: 04.01.2022, 14:54 von norre.)
Hallo,
und willkommen im Forum
Falls die Positionen der Kreise erhalten werden sollen geht das in einem Rutsch nur mit einem Macro
(Das müßte sich unser Macrospezialist @Koter ansehen)
Meine manuelle Vorgehensweise wäre:
Die Größenänderung bei einem Kreis machen, die Eigenschaften des Kreises mit der Eigenschaftspipette aufhehmen und dann auf die anderen Kreise übertragen
Wenn du die Kreise geklont oder als Symbol angelegt hättest bräuchtest du das nur einmal am Originalobjekt ändern
Gruß
Norre
1 Benutzer bedankt sich bei norre für diesen Beitrag:1 Benutzer bedankt Danke norre für diesen Beitrag
• Wild Thinng
Beiträge: 1.429
Themen: 11
Danke erhalten: 270 in 229 Posts
Danke gesagt: 26
Registriert seit: 24.03.2012
05.01.2022, 01:58
(Dieser Beitrag wurde zuletzt bearbeitet: 05.01.2022, 01:58 von koter.)
Hallo Wild Thinng,
Das sollte mit einem Makro gehen:
Das Makro wiederholt den letzten Bearbeitungsschritt für jedes ausgewählte Objekt.
(Wie im Menü Bearbeiten/Wiederholen)
Code:
Sub WhAusw()
Dim asr As ShapeRange
Dim s As Shape
Set asr = ActiveSelectionRange
If asr.Shapes.Count > 1 Then
Application.Optimization = True
ActiveSelectionRange.Shapes.All.RemoveFromSelection
For Each s In asr
s.CreateSelection
ActiveDocument.Repeat
Next
ActiveSelectionRange.Shapes.All.RemoveFromSelection
Application.Optimization = False
Application.Refresh
asr.CreateSelection
End If
End Sub
Gruß
Koter
Beiträge: 3
Themen: 2
Danke erhalten: 0 in 0 Posts
Danke gesagt: 2
Registriert seit: 04.01.2022
Danke erstmal für die Antworten.
@Piet: funzt so nicht, da sich damit auch die Positionen verändern.
@Koter,Norre: Das mit dem Makro schaue ich mir mal genauer an; lässt sich evtl. auch an anderer Stelle adaptieren.
Ich habe folgende Lösung gefunden:
Neuen Kreis (2mm) markieren, Gruppe von 150 Kreisen markieren, Objekte an Streck einpassen (149 Wiederholungen).
An 1-2 Stellen passt das noch nicht (vermutlich Anfang/Ende), aber die kann man dann noch manuell verschieben.
War mir neu, das eine Gruppe von Objekten wie eine Strecke behandelt wird, aber wenn's funzt
Betriebssystem / Grafik-Software: W10 CGS2021
•