PowerPoint VBA教程:FreeformBuilder对象

   
多个对象
FreeformBuilder
Shape

代表在创建任意多边形时使用的几何形状。

使用 FreeformBuilder对象

使用BuildFreeform方法返回一个 FreeformBuilder对象。使用AddNodes方法向任意多边形添加结点。使用ConvertToShape方法创建 FreeformBuilder对象中定义的形状并将其添加到Shapes集合中。以下示例在myDocument 中添加一个具有四段的任意多边形。


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教程:Fonts集合对象 下页:PowerPoint VBA教程:GroupShapes集合对象

PowerPoint VBA教程:FreeformBuilder对象

PowerPoint VBA教程:GroupShapes集合对象 PowerPoint VBA教程:HeaderFooter对象
PowerPoint VBA教程:HeadersFooters对象 PowerPoint VBA教程:Hyperlink对象
PowerPoint VBA教程:Hyperlinks集合对象 PowerPoint VBA教程:LineFormat对象
PowerPoint VBA教程:LinkFormat对象 PowerPoint VBA教程:Master对象
PowerPoint VBA教程:MotionEffect对象 PowerPoint VBA教程:NamedSlideShow对象
PowerPoint VBA教程:NamedSlideShows集合对象 PowerPoint VBA教程:ObjectVerbs对象
PowerPoint VBA教程:OLEFormat对象 PowerPoint VBA教程:Options对象
PowerPoint VBA教程:PageSetup对象 PowerPoint VBA教程:Pane对象
PowerPoint VBA教程:Panes集合对象 PowerPoint VBA教程:ParagraphFormat对象
PowerPoint VBA教程:PictureFormat对象 PowerPoint VBA教程:PlaceholderFormat对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号