DoTrimLines方法示例
2015-12-15 22:24:48   来源：   评论：0 点击：

下列示例 说明，所选的 将被剪裁到TrimType属性设为短于30像素时的延伸点。

Set ObjHelper = BuildObject("GeometryHelper")

ObjHelper.TrimType = 3 ' set trim type max

ObjHelper.TrimMaxLength = 30 ' set max trim pixels

Call ObjHelper.DoTrimLines