《SetSegmentType方法.docx》由会员分享,可在线阅读,更多相关《SetSegmentType方法.docx(1页珍藏版)》请在三一文库上搜索。
SetSegmentType 方 法设置由Index指定的节点之后的线段的类型。如果该节点是曲线段上的控制点, 本方法将设置该曲线的线段类型。 请注意,这样可能会由于插入或删除相邻的节 点而改变节点的总数。expression.SetSegmentType(Index, SegmentType)expression 必需。该表达式返回“应用于”列表中的一个对象。Index Integer 类型,必需。要设置线段类型的节点。SegmentType MsoSegmentType类型,必需。表示线段是直线还是曲线。MsoSegmentType 可为以下 MsoSegmentType 常量之一。msoSegmentCurvemsoSegmentLineExcel VBA 教程:SetSegmentType方法示例本示例将myDocument中图形三的所有直线段都改为曲线段。图形三必须是任意多边形。Set myDocument = Worksheets(1)With myDocument.Shapes(3).Nodesn = 1While n = .CountIf .Item(n).SegmentType = msoSegmentLine Then.SetSegmentType n, msoSegmentCurveEnd Ifn = n + 1WendEnd With