Previous Document Next Document

Object Model Reference : Classes : R : Rectangle : Properties : Rectangle.CornerUpperRight


Rectangle.CornerUpperRight

Property CornerUpperRight As Long

Description

Member of Rectangle

The CornerUpperRight property returns or specifies the roundness of the upper-right corner of a rectangle.

The value for the roundness ranges from 0 (a cusp corner) to 100 (the maximum corner radius, which is half the length of the shortest side).

VBA example

The following VBA example determines whether the selected rectangle has any rounded corners.

Sub Test()
 Dim r As Rectangle
 If ActiveShape.Type = cdrRectangleShape Then
  Set r = ActiveShape.Rectangle
  If r.CornerUpperRight = 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 If
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.