Shapes.BuildFreeform メソッド (Project)

新しいフリーフォーム図面を表す FreeformBuilder オブジェクトを作成します。 フリーフォーム図面は 、Shape オブジェクトに変換できます。

構文

式。 BuildFreeform(EditingType,X1,Y1)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前	必須 / オプション	データ型	説明
EditingType	必須	MsoEditingType	最初の節点の編集プロパティを指定します。
X1	必須	Single	フリーフォーム図面の最初のノードの位置 (ポイント単位)。
Y1	必須	Single	フリーフォーム図面の最初のノードの位置 (ポイント単位) で、レポートの上端を基準にします。
EditingType	必須	MSOEDITINGTYPE
X1	必須	FLOAT
Y1	必須	FLOAT
名前	必須 / オプション	データ型	説明

戻り値

FreeformBuilder

注釈

フリー フォームにセグメントを追加するのには、 AddNodes メソッドを使用します。 フリーフォームに少なくとも 1 つのセグメントを追加したら、 ConvertToShape メソッドを使用して 、FreeformBuilder オブジェクトを、定義した幾何学的な説明を持つ Shape オブジェクトに変換できます。

例

次の使用例は、5 つの頂点を持つフリーフォームをレポートに追加し、フリーフォームを図形に変換してから、図形の背景スタイルを変更します。

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

関連項目

Shapes オブジェクトシェイプ オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。