共用方式為

PowerPoint) (FreeformBuilder 物件

  • 發行項

代表正在建立中的手繪多邊形的幾何。

範例

使用BuildFreeform方法可傳回 FreeformBuilder 物件。 使用 AddNodes方法可將節點新增至 freefrom。 使用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, 40
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
    .ConvertToShape
End With

另請參閱

PowerPoint 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。