PowerPoint VBA教程:SetEditingType方法

设置由 Index 指定的结点的编辑类型。如果该结点是一个曲线的控制点,本方法将对其设置相邻结点的编辑属性,该属性连接两个段。请注意,由于编辑类型的不同,本方法可能影响相邻结点的位置。

expression.SetEditingType(Index, EditingType)

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

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

EditingType  必选。MsoEditingType 类型。编辑类型。

MsoEditingType 可以是下列 MsoEditingType 类型常数之一。
msoEditingAuto
msoEditingCorner
msoEditingSmooth
msoEditingSymmetric

VBA示例

本示例将myDocument 第三个形状中所有的角结点更改为光滑结点。第三个形状必须是任意多边形。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    For n = 1 to .Count
        If .Item(n).EditingType = msoEditingCorner Then
            .SetEditingType n, msoEditingSmooth
        End If
    Next
End With

上页:PowerPoint VBA教程:SetCMYK Method 下页:PowerPoint VBA教程:SetExtrusionDirection方法

PowerPoint VBA教程:SetEditingType方法

PowerPoint VBA教程:SetExtrusionDirection方法 PowerPoint VBA教程:SetPasswordEncryptionOptions方法
PowerPoint VBA教程:SetPosition方法 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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号