Excel VBA教程:SetSegmentType方法

设置由 Index 指定的节点之后的线段的类型。如果该节点是曲线段上的控制点,本方法将设置该曲线的线段类型。请注意,这样可能会由于插入或删除相邻的节点而改变节点的总数。

expression.SetSegmentType(Index, SegmentType)

expression   必需。该表达式返回“应用于”列表中的一个对象。

Index   Integer 类型,必需。要设置线段类型的节点。

SegmentType  MsoSegmentType 类型,必需。表示线段是直线还是曲线。

MsoSegmentType 可为以下 MsoSegmentType 常量之一。
msoSegmentCurve
msoSegmentLine

Excel VBA教程:SetSegmentType方法·示例

本示例将myDocument 中图形三的所有直线段都改为曲线段。图形三必须是任意多边形。


Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
    n = 1
    While n <= .Count
        If .Item(n).SegmentType = msoSegmentLine Then
            .SetSegmentType n, msoSegmentCurve
        End If
        n = n + 1
    Wend
End With

上页:Excel VBA教程:SetPosition方法 下页:Excel VBA教程:SetShapesDefaultProperties方法

Excel VBA教程:SetSegmentType方法

Excel VBA教程:SetShapesDefaultProperties方法 Excel VBA教程:SetSourceData方法
Excel VBA教程:SetThreeDFormat方法 Excel VBA教程:Show方法
Excel VBA教程:ShowAllData方法 Excel VBA教程:ShowDataForm方法
Excel VBA教程:ShowDependents方法 Excel VBA教程:ShowErrors方法
Excel VBA教程:ShowLevels方法 Excel VBA教程:ShowPages方法
Excel VBA教程:ShowPrecedents方法 Excel VBA教程:SmallScroll方法
Excel VBA教程:Solid方法 Excel VBA教程:Sort方法
Excel VBA教程:SortSpecial方法 Excel VBA教程:Speak方法
Excel VBA教程:SpecialCells方法 Excel VBA教程:获取有关 Macintosh 关键字的“帮助”
Excel VBA教程:Subtotal方法 Excel VBA教程:SwapNode方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号