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

Метод Shape.Duplicate (издатель)

  • Статья

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

Синтаксис

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

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

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

Shape

Пример

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

Dim pgTemp As Page 
Dim shpTemp As Shape 
 
Set pgTemp = ActiveDocument.Pages.Add(Count:=1, After:=1) 
Set shpTemp = pgTemp.Shapes _ 
 .AddShape(Type:=msoShapeDiamond, _ 
 Left:=10, Top:=10, Width:=250, Height:=350) 
 
With shpTemp.Duplicate 
 .Left = 150 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
End With

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

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