ShapeNodes オブジェクト (PowerPoint)

  • [アーティクル]

指定されたフリーフォームに含まれるすべての ShapeNode オブジェクトのコレクションです。

注釈

各 ShapeNode オブジェクトは、フリーフォームのセグメント間の節点、またはフリーフォームの曲線の部分のコントロール ポイントを表します。 フリーフォームは、手動で作成することも、 BuildFreeformメソッドと ConvertToShapeメソッドを使用して作成することもできます。

例

ShapeNodes コレクションを取得するには、 Nodes プロパティを使用します。 次の使用例は、myDocument の図形 3 の節点 4 を削除します。 図形 3 は少なくとも 4 つの節点を持つフリーフォームである必要があります。

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Nodes.Delete 4

新しい節点を作成して ShapeNodes コレクションに追加するには、 Insert メソッドを使用します。 次の使用例は、myDocument の図形 3 の節点 4 の後に曲線の部分を持つスムーズな節点を追加します。 図形 3 は少なくとも 4 つの節点を持つフリーフォームである必要があります。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

単一の ShapeNode オブジェクトを返すには、ノード (インデックス) を使用します。index はノードインデックス番号です。 myDocument の図形 3 の節点 1 が頂点の場合、次の使用例は、その部分を滑らかにします。 次の使用例を実行するには、3 番目の図形がフリーフォームである必要があります。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With

関連項目

PowerPoint Object Model Reference

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

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