ShapeRange.SetOutlineProperties

Sub SetOutlineProperties([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])

Member of ShapeRange

The SetOutlineProperties method sets the outline properties of each shape in the range.


Parameters	Description
Width	Specifies the width of an object’s outline. An outline’s width is measured in points. This parameter is optional, and its default value is -1.
Style	Specifies the outline style of an object’s outline This parameter is optional, and its default value is Nothing.
Color	Specifies the color of an object’s outline This parameter is optional, and its default value is Nothing.
StartArrow	Specifies the start arrow of an object’s outline This parameter is optional, and its default value is Nothing.
EndArrow	Specifies the end arrow of an object’s outline This parameter is optional, and its default value is Nothing.
BehindFill	Specifies whether an outline’s fill is behind the outline This parameter is optional, and its default value is cdrUndefined (-2).
ScaleWithShape	Specifies whether an object’s outline maintains the size proportions of the object This parameter is optional, and its default value is cdrUndefined (-2).
LineCaps	Specifies the endpoint style of an open path outline This parameter is optional, and its default value is cdrOutlineUndefinedLineCaps (-1).
LineJoin	Specifies the appearance of lines that intersect each other in an outline. This value returns cdrOutlineLineJoin. This parameter is optional, and its default value is cdrOutlineUndefinedLineJoin (-1).
NibAngle	Specifies the orientation of the pen nib relative to the drawing surface for a calligraphic outline This parameter is optional, and its default value is -9999.
NibStretch	Specifies the thickness of the pen nib of a calligraphic outline This parameter is optional, and its default value is 0.
DashDotLength	This parameter is optional, and its default value is -1.
PenWidth	This parameter is optional, and its default value is 0.

The following code example applies blue, dashed outlines with a width of 0.05 inch to all of the ellipses on the active page:

Sub Test() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(, cdrEllipseShape) 
 sr.SetOutlineProperties 0.05, OutlineStyles(5), CreateRGBColor(0, 
0, 255) 
End Sub