角丸長方形が 23 個あり、それぞれサイズが異なります。それぞれの角の半径を同じにしたいです。理想的には、半径の値を入力することで、まったく同じにしたいのですが。それができない場合は、角を互いに十分近づけるコツがあれば、教えていただけると助かります。何かアイデアはありますか?
答え1
すべての図形をループし、角丸長方形かどうかを確認してから特定の値 (この例では 0.12 - 必要な結果を得るには値を変更するだけです) に設定するマクロを試すことができます。
Dim shp シェイプとして
ActiveDocument.Shapes の各 shp の場合、shp.AutoShapeType = 5 であれば、shp.Adjustments.Item(1) = 0.12 となります。