Shape.Duplicate メソッド (PowerPoint)

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

構文

式。重複

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

戻り値

ShapeRange

例

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

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 のサポートおよびフィードバックを参照してください。