DoTrimLines Method Example

The following exampleshows that the selected line object(s) will be trimmed to the extension point when the TrimType property is set to shorter than 30 pixels.

Set ObjHelper = BuildObject("GeometryHelper")

ObjHelper.TrimType = 3 ' set trim type max

ObjHelper.TrimMaxLength = 30 ' set max trim pixels

Call ObjHelper.DoTrimLines