PowerPoint) (FreeformBuilder.ConvertToShape 方法

會建立具有指定之 FreeformBuilder 物件的幾何特性的圖形。 會傳回代表新圖案的 Shape 物件。

語法

expression。 ConvertToShape

表達 代表 FreeformBuilder 物件的 變數。

傳回值

圖形

註解

您必須套用AddNodes方法向 FreeformBuilder 物件至少一次使用 ConvertToShape 方法之前。

範例

本範例將具有五個頂點的手繪多邊形新增至目前簡報的第一張投影片。

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

另請參閱

FreeformBuilder 物件

支援和意見反應

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