API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.SetOutlinePropertiesEx method
Sets all outline properties
Syntax:
Sub SetOutlinePropertiesEx(Optional ByVal Width As Double = -1, Optional ByVal Style As OutlineStyle = Nothing, Optional ByVal Color As Color = Nothing, Optional ByVal StartArrow As ArrowHead = Nothing, Optional ByVal EndArrow As ArrowHead = Nothing, Optional ByVal BehindFill As cdrTriState = cdrUndefined, Optional ByVal ScaleWithShape As cdrTriState = cdrUndefined, Optional ByVal LineCaps As cdrOutlineLineCaps = cdrOutlineUndefinedLineCaps, Optional ByVal LineJoin As cdrOutlineLineJoin = cdrOutlineUndefinedLineJoin, Optional ByVal NibAngle As Double = -9999, Optional ByVal NibStretch As Long = 0, Optional ByVal DashDotLength As Double = -1, Optional ByVal PenWidth As Double = 0, Optional ByVal MiterLimit As Double = 0, Optional ByVal Justification As cdrOutlineJustification = cdrOutlineJustificationUndefined)
Parameters:
Name Type Description
Width
Double
Specifies the width of the outline, measured in points.
Style
Specifies the outline style.
Color
Specifies the outline color.
StartArrow
Specifies a start arrow for the outline.
EndArrow
Specifies an end arrow for the outline.
BehindFill
Specifies whether the fill is behind the outline.
ScaleWithShape
Specifies whether the outline maintains the size proportions of the shape.
LineCaps
Specifies the endpoint style of an open-path outline.
LineJoin
Specifies the appearance of lines that intersect each other in an outline, and returns cdrOutlineLineJoin.
NibAngle
Double
Specifies the orientation of the pen nib, relative to the drawing surface, for a calligraphic outline.
NibStretch
Long
Specifies the thickness of the pen nib for a calligraphic outline.
DashDotLength
Double
Specifies the dash-dot length of the outline.
PenWidth
Double
Specifies the pen width of the outline.
MiterLimit
Double
Justification
Specifies the outline justification settings.
Remarks:
The SetOutlinePropertiesEx method sets the outline properties of each shape, including outline justification, in a shape range.
Examples:
The following VBA example applies blue, dashed outlines with a width of 0.05" to all the ellipses on the active page.
Sub Test()
Dim sr As ShapeRange
Set sr = ActivePage.FindShapes(, cdrEllipseShape)
sr.SetOutlinePropertiesEx 0.15, Justification: = cdrOutlineJustificationOutside 
End Sub