Метод ShapeRange.Duplicate (PowerPoint)

Статья
04/07/2023

Создает дубликат указанного объекта ShapeRange , добавляет диапазон фигур в коллекцию Shapes , а затем возвращает новый объект ShapeRange . Дублированные объекты помещаются в конец коллекции Shapes .

Синтаксис

expression. Дублировать

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

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

ShapeRange

Пример

В этом примере в конце активной презентации добавляется новый пустой слайд, к новому слайду добавляется фигура ромба, дублируется ромб, а затем задаются свойства для дубликата. Первый ромба будет иметь цвет заливки по умолчанию для активной цветовой схемы; второй ромба будет смещением от первого и будет иметь цвет тени по умолчанию.

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

См. также

Объект ShapeRange

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

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

Поделиться через