marain 发表于 2004-11-18 10:00:00

[VBA]请教如何实现多段线的修剪

如



                                <?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:line id=_x0000_s1046 style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="181.5pt,111.45pt" to="181.5pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1047 style="Z-INDEX: 2; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="208.5pt,111.45pt" to="208.5pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1048 style="Z-INDEX: 3; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="145.5pt,150.45pt" to="244.5pt,150.45pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1050 style="Z-INDEX: 5; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="343.5pt,111.45pt" to="343.5pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1052 style="Z-INDEX: 7; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="343.5pt,150.45pt" to="388.5pt,150.45pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1049 style="Z-INDEX: 4; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="316.55pt,111.45pt" to="316.55pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1051 style="Z-INDEX: 6; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="271.5pt,150.45pt" to="316.55pt,150.45pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1046 style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="181.5pt,111.45pt" to="181.5pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1047 style="Z-INDEX: 2; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="208.5pt,111.45pt" to="208.5pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1048 style="Z-INDEX: 3; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="145.5pt,150.45pt" to="244.5pt,150.45pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1050 style="Z-INDEX: 5; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="343.5pt,111.45pt" to="343.5pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1052 style="Z-INDEX: 7; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="343.5pt,150.45pt" to="388.5pt,150.45pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1049 style="Z-INDEX: 4; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="316.55pt,111.45pt" to="316.55pt,244.05pt" coordsize="21600,21600"></v:line><v:line id=_x0000_s1051 style="Z-INDEX: 6; LEFT: 0px; POSITION: absolute; TEXT-ALIGN: left" from="271.5pt,150.45pt" to="316.55pt,150.45pt" coordsize="21600,21600"></v:line>                                               








3x

雪山飞狐_lzh 发表于 2004-11-18 16:08:00

是直线还是多段线？

marain 发表于 2004-11-19 12:42:00

多段线啊
页: [1]
查看完整版本: [VBA]请教如何实现多段线的修剪