PowerPoint VBA教程:EditingType属性

如果指定的结点是顶点,此项属性返回单个值,该值表示对结点所作的更改是如何影响连接到该结点的两段。如果该结点是弯曲段的控制点,此项属性返回邻近顶点的编辑状态。只读。MsoEditingType 类型。

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

expression.EditingType

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

说明

该属性为只读。请使用SetEditingType方法设置该属性的值。

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教程:Duration属性 下页:PowerPoint VBA教程:EffectInformation属性

PowerPoint VBA教程:EditingType属性

PowerPoint VBA教程:EffectInformation属性 PowerPoint VBA教程:EffectParameters属性
PowerPoint VBA教程:EffectType属性 PowerPoint VBA教程:EmailSubject属性
PowerPoint VBA教程:Embeddable属性 PowerPoint VBA教程:Embedded属性
PowerPoint VBA教程:Emboss属性 PowerPoint VBA教程:Encoding属性
PowerPoint VBA教程:End属性 PowerPoint VBA教程:EndArrowheadLength属性
PowerPoint VBA教程:EndArrowheadStyle属性 PowerPoint VBA教程:EndArrowheadWidth属性
PowerPoint VBA教程:EndConnected属性 PowerPoint VBA教程:EndConnectedShape属性
PowerPoint VBA教程:EndConnectionSite属性 PowerPoint VBA教程:EndingSlide属性
PowerPoint VBA教程:EntryEffect属性 PowerPoint VBA教程:EnvelopeVisible属性
PowerPoint VBA教程:Exit属性 PowerPoint VBA教程:ExtraColors属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号