Gets and sets the length of the end arrowhead in TWIPS. | |
Syntax: | VARIANT =
object.EndArrowheadLength object.EndArrowheadLength = VARIANT |
Description: | Only line (gefLine) objects support this
property. If the object does not support this property the return value is undefined. Example: Sub LineFormat_EndArrowheadLength() Dim oCimObj As GefObject Dim oCimLineFmt As
GefLineFormat Set oCimObj = CimGetObject Set oCimLineFmt =
oCimObj.Line If oCimLineFmt.EndArrowheadStyle =
gefArrowheadOpen Or oCimLineFmt.EndArrowheadStyle =
gefArrowheadTriangle Then oCimLineFmt.EndArrowheadLength
= 800 End If cimgetscreen.Refresh False End Sub |