次の方法で共有


Shapes.BuildFreeform Method (Excel)

Builds a freeform object. Returns a FreeformBuilder object that represents the freeform as it is being built. Use the AddNodes method to add segments to the freeform. After you have added at least one segment to the freeform, you can use the ConvertToShape method to convert the FreeformBuilder object into a Shape object that has the geometric description you’ve defined in the FreeformBuilder object.

Syntax

expression .BuildFreeform(EditingType, X1, Y1)

expression A variable that represents a Shapes object.

Parameters

Name

Required/Optional

Data Type

Description

EditingType

Required

MsoEditingType

The editing property of the first node.

X1

Required

Single

The position (in points) of the first node in the freeform drawing relative to the upper-left corner of the document.

Y1

Required

Single

The position (in points) of the first node in the freeform drawing relative to the upper-left corner of the document.

Return Value

FreeformBuilder

Example

This example adds a freeform with five vertices to myDocument.

Set myDocument = Worksheets(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

See Also

Concepts

Shapes Object Members

Shapes Object