expression.Weight
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Return values are in points. When setting the property, numeric values are evaluated in points, and strings can be in any units supported by Publisher (for example, "2.5 in").
Example
This example adds a green dashed line, two points thick, to the active publication.
With ActiveDocument.Pages(1).Shapes _
.AddLine(BeginX:=10, BeginY:=10, _
EndX:=250, EndY:=250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(0, 255, 255)
.Weight = 2
End With