PowerPoint: как сохранить скругление углов при изменении размера скругленных прямоугольников, как в Adobe Illustrator?

для решения задачи требуются макросы VBA.

Если вам никогда раньше не приходилось работать с VBA (вам повезло), вы можете изучить эту тему в статье Microsoft : начало работы с VBA в PowerPoint 2010.

вам понадобятся следующие два макроса: GetShapeRounding и SetShapeRounding. Оба макроса предполагают, что скругленный прямоугольник является выбранным в данный момент формировать. Первый макрос вычисляет размер радиуса фигуры в точках и второй устанавливает выбранную форму на этот радиус.

использование макросов:

1. создайте закругленный прямоугольник и выберите его (или оставить его выбрали)
2. запустить первый макрос для вычисления радиуса
3. измените размер закругленного прямоугольника и оставьте его выбранным
4. запустите второй макрос, чтобы установить его углы на расчетный радиус

вот макросы :

Dim sngRadius As Single ' Radius size in points

Sub GetShapeRounding()
Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh
  If .Width < .Height Then
    sngRadius = .Width * .Adjustments(1)
  Else ' .Width >= .Height
    sngRadius = .Height * .Adjustments(1)
  End If
End With
MsgBox sngRadius
Set oSh = Nothing
End Sub

Sub SetShapeRounding()
Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh
  If .Width < .Height Then
    .Adjustments(1) = sngRadius / .Width
  Else ' .Width >= .Height
    .Adjustments(1) = sngRadius / .Height
  End If
End With
Set oSh = Nothing
End Sub

проверено на PowerPoint 2010.