Designs.Clone メソッド (PowerPoint)

Design オブジェクトのコピーを作成します。

構文

式。 Clone( _pOriginal_, _Index_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
pOriginal	必須	Design	デザイン オブジェクト。 元のデザインです。
Index	省略可能	長整数型 (Long)	デザインのコピー先となる Designs コレクション内のインデックス位置。 インデックスを省略すると、クローンとして作成されたデザインは Designs コレクションの末尾に追加されます。

戻り値

Design

例

次の使用例は、デザインを作成し、作成されたデザインのコピーを作成します。

Sub CloneDesign()

    Dim dsnDesign1 As Design
    Dim dsnDesign2

    Set dsnDesign1 = ActivePresentation.Designs _
        .Add(designName:="Design1")

    Set dsnDesign2 = ActivePresentation.Designs _
        .Clone(pOriginal:=dsnDesign1, Index:=1)

End Sub

関連項目

デザイン オブジェクト

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

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