Shapes.BuildFreeform メソッド (PowerPoint)

フリーフォーム オブジェクトを作成します。 作成されたフリーフォームを表す FreeformBuilder オブジェクトを返します。

構文

式。 BuildFreeform( _EditingType_, _X1_, _Y1_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
EditingType	必須	MsoEditingType	最初の節点の編集プロパティを指定します。
X1	必須	単精度浮動小数点型 (Single)	スライドの左端を基準に、フリーフォームの最初の節点の水平位置をポイント単位で指定します。
Y1	必須	単精度浮動小数点型 (Single)	スライドの上端を基準に、フリーフォームの最初の節点の垂直位置をポイント単位で指定します。

戻り値

FreeformBuilder

注釈

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

例

次の使用例は、4 つのセグメントを持つフリーフォームを myDocument に追加します。

    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
    X1:=360, Y1:=200) 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
            X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=200 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=400 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=360, Y1:=200 
        .ConvertToShape 
    End With

関連項目

• Shapes オブジェクト

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

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