Sub Test() Dim r As Rectangle If ActiveShape.Type = cdrRectangleShape Then Set r = ActiveShape.Rectangle If r.CornerLowerRight = 0 And r.EqualCorners Then MsgBox "The rectangle does not have rounded corners." Else MsgBox "The rectangle has rounded corners." End If Else MsgBox "The selected shape is not a rectangle." End IfEnd Sub