次の方法で共有

Shapes.AddCurve メソッド (Publisher)

  • [アーティクル]

ベジエ曲線を表す新しい Shape オブジェクトを、指定した Shapes コレクションに追加します。

構文

式。AddCurve (SafeArrayOfPoints)

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

パラメーター

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

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

戻り値

Shape

注釈

SafeArrayOfPoints の配列要素の場合、数値はポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。

例

次の使用例は、作業中の文書の先頭ページに、2 つのセグメントで構成されるベジェ曲線を追加します。

Dim shpCurve As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 0 
arrPoints(1, 2) = 0 
arrPoints(2, 1) = 72 
arrPoints(2, 2) = 72 
arrPoints(3, 1) = 144 
arrPoints(3, 2) = 36 
arrPoints(4, 1) = 216 
arrPoints(4, 2) = 108 
 
Set shpCurve = ActiveDocument.Pages(1).Shapes.AddCurve _ 
 (SafeArrayOfPoints:=arrPoints)

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

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