Shapes.BuildFreeform 方法 (專案)

建立一個 FreeformBuilder 物件，代表新的自由形繪圖。 自由繪圖可以轉換成 形狀 物件。

語法

expression。 BuildFreeform (編輯類型，X1，Y1)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
EditingType	必要	MsoEditingType	第一個節點的編輯屬性
X1	必要	Single	該位置 (於自由繪圖中第一個節點相對於報告左邊的) 點。
Y1	必要	Single	該位置以自由繪圖中第一個節點的) 點為 (，相對於報告的頂緣。
EditingType	必要	MSOEDITINGTYPE
X1	必要	浮
Y1	必要	浮
名稱	必要/選用	資料類型	描述

傳回值

自由形態建構者

註解

使用 AddNodes 方法可將區段新增至手繪多邊形。 當你至少在自由形式中加入一個段後，你可以使用 ConvertToShape 方法，將 FreeformBuilder 物件轉換成具有你定義的幾何描述的 Shape 物件。

範例

以下範例將一個有五個頂點的自由形式加入報告，將自由形式轉換成形狀，然後改變形狀的背景樣式。

Sub AddFreeform2()
    Dim shapeReport As Report
    Dim reportName As String
    Dim freeformBuild As FreeformBuilder
    Dim freeformShape As shape

    reportName = "Freeform2 report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    Set freeformBuild = shapeReport.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    
    With freeformBuild
        .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 450, 300
        .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
        .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
        .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
        .ConvertToShape
    End With
    
    Set freeformShape = shapeReport.Shapes(1)
    
    freeformShape.BackgroundStyle = msoBackgroundStylePreset10
End Sub

另請參閱

形狀 物件形狀 物件

支援和意見反應

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