suchen und ersetzen - Druckversion

suchen und ersetzen - 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: suchen und ersetzen (/showthread.php?tid=38325)

suchen und ersetzen - Wild Thinng - 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.

RE: suchen und ersetzen - Piet - 04.01.2022

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....

RE: suchen und ersetzen - norre - 04.01.2022

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

RE: suchen und ersetzen - koter - 05.01.2022

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

RE: suchen und ersetzen - Wild Thinng - 07.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 Smile