Object Model Reference : Classes : O : Outline : Methods : Outline.SetProperties |
Sub SetProperties([Width As Double = -1], [Style As OutlineStyle], [Color As Color], [StartArrow As ArrowHead], [EndArrow As ArrowHead], [BehindFill As cdrTriState = cdrUndefined], [ScaleWithShape As cdrTriState = cdrUndefined], [LineCaps As cdrOutlineLineCaps = cdrOutlineUndefinedLineCaps], [LineJoin As cdrOutlineLineJoin = cdrOutlineUndefinedLineJoin], [NibAngle As Double = -9999], [NibStretch As Long], [DashDotLength As Double = -1], [PenWidth As Double], [MiterLimit As Double])
Member of Outline
The SetProperties method allows you to set all outline properties with a single command.
Any missing parameter does not change the corresponding property.
Parameter
|
Description
|
Width
|
Specifies, in points, the width of the objects outline. This parameter is optional, and its default value is -1.
|
Style
|
Specifies the outline style of the objects outline. This parameter is optional, and its default value is Nothing.
|
Color
|
Specifies the color of the objects outline. This parameter is optional, and its default value is Nothing.
|
StartArrow
|
Specifies the start arrow of the objects outline. This parameter is optional, and its default value is Nothing.
|
EndArrow
|
Specifies the end arrow of the objects outline. This parameter is optional, and its default value is Nothing.
|
BehindFill
|
Determines whether the outline is behind the objects fill. This parameter is optional, and its default value is cdrUndefined (-2).
|
ScaleWithShape
|
Determines whether the objects outline maintains the size proportions of the object. This parameter is optional, and its default value is cdrUndefined (-2).
|
LineCaps
|
Specifies the endpoint style if the outline is open-path. This parameter is optional, and its default value is cdrOutlineUndefinedLineCaps (-1).
|
LineJoin
|
Specifies the appearance of the lines that intersect each other in the outline, and returns cdrOutlineLineJoin. This parameter is optional, and its default value is cdrOutlineUndefinedLineJoin (-1).
|
NibAngle
|
Specifies the angle of the Brush tool if the outline is calligraphic. This parameter is optional, and its default value is -9999.
|
NibStretch
|
Specifies the thickness of the Brush tool if the oultine is calligraphic. This parameter is optional, and its default value is 0.
|
DashDotLength
|
Specifies the absolute length of the outlines dash-dot pattern. This parameter is optional, and its default value is -1.
|
PenWidth
|
Specifies the pen width, if the outline is enhanced. This parameter is optional, and its default value is 0.
|
MiterLimit
|
Specifies the miter limit. This parameter is optional, and its default value is 0.
|
The following VBA example creates a rectangle with an outline that is 0.3 inches wide. The blue outline is set behind the rectangles fill and does not to scale to size with the rectangle. The outlines fill has round line caps and beveled line joins. The nib angle is set to 34° with a nib stretch of 100.
Sub test() |
Dim s As Shape |
Set s = ActiveLayer.CreateRectangle(3, 3, 7, 7) |
s.Outline.SetProperties 0.3, , CreateRGBColor(0, 0, 255), , , True, _ |
False, cdrOutlineRoundLineCaps, cdrOutlineBevelLineJoin, 34, 100 |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.