GefLineFormat.Weight (property)

Gets the weight of the border.
Syntax: VARIANT = object.Weight
object.Weight = VARIANT
Description: This is the weight (width) of the border in TWIPS. To specify no border, set the DashStyle to gefLineNone.

Example:

Sub GefLineFormat_Weight()
    
    Dim oCimObj As GefObject
    Dim oCimLineFmt As GefLineFormat
    
    Set oCimObj = CimGetObject
    Set oCimLineFmt = oCimObj.Line
    oCimLineFmt.Weight = 200
    cimgetscreen.Refresh False
    
End Sub