Layer.CreateRectangle2

Function CreateRectangle2(x As Double, y As Double, Width As Double, Height As Double, [RadiusUL As Double], [RadiusUR As Double], [RadiusLR As Double], [RadiusLL As Double]) As Shape

Member of Layer

The CreateRectangle2 method creates a rectangle using coordinates of the upper-left corner, the width, the height, and a corner radius.


Parameters	Description
x	Defines the horizontal position of the upper left-corner coordinate. This value is measured in document units.
y	Defines the vertical position of the upper-left corner coordinate. This value is measured in document units.
Width	Defines the horizontal measurement. This value is measured in document units.
Height	Defines the vertical measurement. This value is measured in document units.
RadiusUL	Specifies the actual corner radius measurement of the upper-left corner This parameter is optional, and its default value is 0.
RadiusUR	Specifies the actual corner radius measurement of the upper-right corner This parameter is optional, and its default value is 0.
RadiusLR	Specifies the actual corner radius measurement of the lower-right corner This parameter is optional, and its default value is 0.
RadiusLL	Specifies the actual corner radius measurement of the lower-left corner This parameter is optional, and its default value is 0.

The following code example creates a blend between two rectangles. The intermediate blend objects are rotated by 360?during the progression.

Sub Test() 
 Dim s1 As Shape, s2 As Shape 
 Set s1 = ActiveLayer.CreateRectangle2(0, 0, 3, 1) 
 s1.Fill.UniformColor.RGBAssign 255, 0, 0 
 Set s2 = ActiveLayer.CreateRectangle2(4, 4, 3, 1) 
 s2.Fill.UniformColor.RGBAssign 255, 255, 0 
 With s2.CreateBlend(s1).Blend 
  .Loop = False 
  .Angle = 360 
 End With 
End Sub