suchen und ersetzen

[Wild Thinng]

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.

[Piet]

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

[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

[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

[Wild Thinng]

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