Object Model Reference : Classes : R : Rectangle : Properties : Rectangle.MaxRadius
|
|
| Object Model Reference : Classes : R : Rectangle : Properties : Rectangle.MaxRadius |
Property MaxRadius As Double
Member of Rectangle
The MaxRadius property returns the maximum radius value possible for a rectangle’s rounded corner. This value is half the size of the shortest side of a rectangle.
The MaxRadius property returns a read-only value.
The following VBA example sets the maximum corner radius for all rectangles to 0.5".
Sub Test() |
Dim s As Shape |
Const r As Double = 0.5 |
For Each s In ActivePage.FindShapes(Type:=cdrRectangleShape) |
If s.Rectangle.MaxRadius >= r Then |
s.Rectangle.SetRadius r |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.