Shape.Duplicate メソッド (PowerPoint)

指定された Shape オブジェクトの複製を作成、新しい図形を Shapes コレクションに追加し、新しい ShapeRange オブジェクトを返します。 複製されやオブジェクトは、 Shapes コレクションの末尾に配置されます。

構文

式。複製

式: Shape オブジェクトを表す変数。

戻り値

ShapeRange

例

この例では、アクティブなプレゼンテーションの最後に新しい空白のスライドを追加し、ひし形を新しいスライドに追加してひし形を複製してから、複製のプロパティを設定します。 最初のダイヤモンドには、アクティブな配色のデフォルトの塗りつぶし色があります。2 番目のダイヤモンドは 1 つ目のダイヤモンドからオフセットされ、デフォルトの影の色になります。

Set mySlides = ActivePresentation.Slides

Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)

Set firstObj = newSlide.Shapes _
    .AddShape(msoShapeDiamond, 10, 10, 250, 350)

With firstObj.Duplicate
    .Left = 150
    .Fill.ForeColor.SchemeColor = ppShadow
End With

関連項目

Shape オブジェクト

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

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

  • Last updated on