Выбираете вначале фигуру для изменения и изменяете вот так например:
Код
Selection.ShapeRange.AutoShapeType = msoShapeRoundedRectangle
Selection.ShapeRange.Adjustments.Item(1) = 0 ' с прямыми углами
Selection.ShapeRange.Adjustments.Item(1) = 0.275 ' а так с округленными углами
Все_просто, понятно, что могу ошибаться, но подозреваю, что "удалить углы у фигуры", значит удалить некоторые узлы у заданной ломаной) мне не встречались прямоугольники с 12 и 6 углом)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Dim s As Shape
Set s = Selection.ShapeRange(1) 'выбор объекта, например так
If s.AutoShapeType = msoShapeRectangle Then
s.AutoShapeType = msoShapeRightTriangle
s.Flip msoFlipHorizontal
End If
Ігор Гончаренко написал: "удалить углы у фигуры", значит удалить некоторые узлы
+ P.S.: может, всё-таки, AutoCAD? Для него это явно ближе — да и VBA присутствует
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄