PowerPoint VBA教程:SetSegmentType方法

设置 Index 指定的结点后面的段的段类型。如果该结点为一条曲线段的控制点,则该方法设置该曲线的段类型。请注意,该方法可能由于插入或删除相邻的结点而影响结点总数。

expression.SetSegmentType(Index, SegmentType)

expression  必选。该表达式返回一个 ShapeNodes对象。

Index  必选。Long 类型。要设置段类型的结点。

SegmentType  必选。MsoSegmentType 类型。指定段是直线还是曲线。

MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。
msoSegmentCurve
msoSegmentLine

VBA示例

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


Set myDocument = ActivePresentation.Slides(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

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

PowerPoint VBA教程:SetSegmentType方法

PowerPoint VBA教程:SetShapesDefaultProperties方法 PowerPoint VBA教程:SetThreeDFormat方法
PowerPoint VBA教程:SmallScroll方法 PowerPoint VBA教程:Solid方法
PowerPoint VBA教程:Split方法 PowerPoint VBA教程:SwapNode方法
PowerPoint VBA教程:ToggleVerticalText方法 PowerPoint VBA教程:TransferChildren方法
PowerPoint VBA教程:TrimText方法 PowerPoint VBA教程:TwoColorGradient方法
PowerPoint VBA教程:Ungroup方法 PowerPoint VBA教程:Unselect方法
PowerPoint VBA教程:Update方法 PowerPoint VBA教程:UpdateLinks方法
PowerPoint VBA教程:UseDefaultFolderSuffix方法 PowerPoint VBA教程:UserPicture方法
PowerPoint VBA教程:UserTextured方法 PowerPoint VBA教程:Value方法
PowerPoint VBA教程:WebPagePreview方法 PowerPoint VBA教程:Words方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号