Shape.CreateContour

Function CreateContour([Direction As cdrContourDirection = cdrContourOutside], [Offset As Double], [Steps As Long = 1], [BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend], [OutlineColor As Color], [FillColor As Color], [FillColor2 As Color], [SpacingAccel As Long], [ColorAccel As Long]) As Effect

Member of Shape

The CreateContour method creates a contour effect. This method returns an Effect object that represents contour properties.


Parameters	Description
Direction	Sets the direction of a contour effect. This property returns a value of cdrContourDirection. This parameter is optional, and its default value is cdrContourOutside (1).
Offset	Sets the offset distance, in document units, between contour lines. This automatically adjusts the number of contour steps. This parameter is optional, and its default value is 0.
Steps	Sets the number of steps in a contour effect. The number of steps in a contour effect is linked to the number of lines that appear in the effect. This parameter is optional, and its default value is 1.
BlendType	Sets the color blend type of a fountain fill blend type. This property returns cdrFountainFillBlendType. This parameter is optional, and its default value is cdrDirectFountainFillBlend (0).
OutlineColor	Sets the contour outline color This parameter is optional, and its default value is Nothing.
FillColor	Sets the contour fill color This parameter is optional, and its default value is Nothing.
FillColor2	Sets the FillColorTo color This parameter is optional, and its default value is Nothing.
SpacingAccel	Sets the change in the size of the steps This parameter is optional, and its default value is 0.
ColorAccel	Sets the acceleration of the color change This parameter is optional, and its default value is 0.

The following code example creates a text string and applies a contour effect to it, resulting in blurred look:

Sub Test() 
 Dim sText As Shape 
 Set sText = ActiveLayer.CreateArtisticText(4, 5, "Blurred Text") 
 sText.Fill.UniformColor.RGBAssign 0, 0, 0 
 With sText.Text.FontProperties 
  .Name = "Arial" 
  .Size = 90 
  .Style = cdrBoldFontStyle 
 End With 
 sText.Text.AlignProperties.Alignment = cdrCenterAlignment 
 sText.CreateContour cdrContourOutside, 0.01, 10, , , 
CreateRGBColor(255, 255, 255) 
End Sub