У меня есть 23 скругленных прямоугольника, каждый разного размера, и я хочу, чтобы радиус угла был одинаковым в каждом. В идеале я бы хотел, чтобы они были абсолютно одинаковыми, имея возможность ввести значение радиуса. Кроме того, если есть трюк, чтобы разместить их достаточно близко друг к другу, это было бы полезно. Есть идеи?
решение1
Вы можете попробовать макрос, который будет перебирать все фигуры, проверять, является ли она скругленным прямоугольником, а затем устанавливать определенное значение (в этом примере 0,12 — просто измените его, чтобы получить нужный результат).
Dim shp как форма
Для каждого shp В ActiveDocument.Shapes Если shp.AutoShapeType = 5 Тогда shp.Adjustments.Item(1) = 0.12 Далее