Метод Shape.Duplicate (PowerPoint)

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

Синтаксис

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

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

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

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

См. также

Объект Shape

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

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