Ich habe 23 abgerundete Rechtecke, jede in einer anderen Größe, und ich möchte, dass der Eckradius bei allen gleich ist. Im Idealfall hätte ich sie genau gleich, indem ich einen Radiuswert eingeben kann. Wenn es sonst einen Trick gibt, um sie nahe genug beieinander zu bringen, wäre das hilfreich. Irgendwelche Ideen?
Antwort1
Sie können versuchen, mit einem Makro alle Formen zu durchlaufen, zu prüfen, ob es sich um ein abgerundetes Rechteck handelt, und dann einen bestimmten Wert festzulegen (in diesem Beispiel 0,12 – ändern Sie ihn einfach, um das gewünschte Ergebnis zu erhalten).
Dim shp als Form
Für jedes shp in ActiveDocument.Shapes Wenn shp.AutoShapeType = 5 Dann shp.Adjustments.Item(1) = 0,12 Weiter