suchen und ersetzen
#1
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
Zitieren
#2
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
Zitieren
#3
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
[Bild: greb7j6l.gif]


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:
  • Wild Thinng
Zitieren
#4
Bug 
Hallo Wild Thinng,

Das sollte mit einem Makro gehen:
[Bild: whauswggkma.gif]

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
[-] 3 Benutzer bedanken sich bei koter für diesen Beitrag:
  • mvm, Piet, Wild Thinng
Zitieren
#5
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 Smile MrGreen

Betriebssystem / Grafik-Software: W10 CGS2021
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Question Suchen und Ersetzen fehlt in 2023 SE? STONE 10 251 Gestern, 21:50
Letzter Beitrag: Karthagos
  Dokumentschriftarten finden und (einfach) ersetzen in CDR X6? Sascha B. 33 12.629 13.09.2024, 12:48
Letzter Beitrag: koter
  Text partiell ersetzen Karthagos 2 391 26.05.2024, 21:09
Letzter Beitrag: Karthagos
  Fehlende Schriften ersetzen Karthagos 4 1.592 17.07.2021, 16:50
Letzter Beitrag: Karthagos
  welche Funktion beim Farbe ersetzen ? printx 4 2.411 28.11.2018, 10:10
Letzter Beitrag: norre
  Corel X8 SE oder Alternative suchen ? landbastler 2 2.215 01.11.2017, 19:11
Letzter Beitrag: landbastler
  X6 - Cliparts suchen Uckerschwan 2 1.479 14.10.2015, 14:11
Letzter Beitrag: Uckerschwan
  Text ersetzen, aber nur auf einer Seite OsCor 7 2.317 03.04.2015, 17:47
Letzter Beitrag: norre
  X5 Farbpaletten ersetzen, Makro f. Dummies + Calendar Wizard Vectoria 18 4.578 06.02.2015, 02:46
Letzter Beitrag: koter
  CMYK durch HKS ersetzen, geht das? Sascha B. 7 4.937 29.08.2014, 12:08
Letzter Beitrag: norre