PowerPoint VBA教程:ConvertToShape方法

创建一个具有指定 FreeformBuilder对象的几何特性的形状。返回一个代表新形状的Shape对象。

注意  使用 ConvertToShape方法之前,必须对 FreeformBuilder对象使用过至少一次AddNodes方法。

expression.ConvertToShape

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

VBA示例

本示例向当前演示文稿的第一张幻灯片中添加一个具有五个顶点的任意多边形。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    .AddNodes msoSegmentCurve, _
        msoEditingCorner, 380, 230, 400, 250, 450, 300
    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
    .ConvertToShape
End With

上页:PowerPoint VBA教程:ConvertToBuildLevel方法 下页:PowerPoint VBA教程:ConvertToTextUnitEffect方法

PowerPoint VBA教程:ConvertToShape方法

PowerPoint VBA教程:ConvertToTextUnitEffect方法 PowerPoint VBA教程:Copy方法
PowerPoint VBA教程:CreateNewDocument方法 PowerPoint VBA教程:CustomDrop方法
PowerPoint VBA教程:CustomLength方法 PowerPoint VBA教程:Cut方法
PowerPoint VBA教程:Delete方法 PowerPoint VBA教程:DeleteText方法
PowerPoint VBA教程:DiscardConflict Method PowerPoint VBA教程:Distribute方法
PowerPoint VBA教程:DoVerb方法 PowerPoint VBA教程:DrawLine方法
PowerPoint VBA教程:Duplicate方法 PowerPoint VBA教程:EndConnect方法
PowerPoint VBA教程:EndDisconnect方法 PowerPoint VBA教程:EndNamedShow方法
PowerPoint VBA教程:EndReview方法 PowerPoint VBA教程:EraseDrawing方法
PowerPoint VBA教程:Exit方法 PowerPoint VBA教程:Export方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号