Метод Designs.Clone (PowerPoint)

Создает копию объекта Design .

Синтаксис

выражение. Clone( _pOriginal_, _Index_ )

выражение Переменная, представляющая объект Designs .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
pOriginal	Обязательный	Design	Объект design . Оригинальный дизайн.
Индекс;	Необязательный	Long	Расположение индекса в коллекции Designs , в которое будет скопирован макет. Если индекс опущен, клонированный макет добавляется в конец коллекции Designs .

Возвращаемое значение

Проектирование

Пример

В этом примере создается макет и клонируется только что созданная конструкция.

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

См. также

Объект Designs

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.