次の方法で共有


Shapes.AddCurve メソッド (Excel)

ワークシートのベジエ曲線を表す Shape オブジェクトを返します。

構文

AddCurve (SafeArrayOfPoints)

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

パラメーター

名前 必須 / オプション データ型 説明
SafeArrayOfPoints 必須 バリアント型 (Variant) 曲線の両端とコントロール ポイントを指定する 2 次元の座標の配列を指定します。 指定する最初のポイントは開始頂点で、次の 2 つの点は最初のベジエ セグメントのコントロール ポイントです。 次に、この曲線に追加するセグメントごとに、1 つの中継点と 2 つのコントロール ポイントを指定します。

指定する最後のポイントは、曲線の終了頂点です。 曲線のセグメントの数を n とすると、常に 3n + 1 個の点を指定する必要があります。

戻り値

図形

次の例では、2 つのセグメントのベジエ曲線を myDocument に追加します。

Dim pts(1 To 7, 1 To 2) As Single 
pts(1, 1) = 0 
pts(1, 2) = 0 
pts(2, 1) = 72 
pts(2, 2) = 72 
pts(3, 1) = 100 
pts(3, 2) = 40 
pts(4, 1) = 20 
pts(4, 2) = 50 
pts(5, 1) = 90 
pts(5, 2) = 120 
pts(6, 1) = 60 
pts(6, 2) = 30 
pts(7, 1) = 150 
pts(7, 2) = 90 
Set myDocument = Worksheets(1) 
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts

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

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