Прочитать на английском

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


Метод Shape.Copy (Visio)

Копирует фигуру в буфер обмена.

Синтаксис

expression. Копирование (флаги)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
Flags Необязательный Variant Определяет, как преобразуются фигуры во время операции копирования.

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

Отсутствует

Примечания

Возможные значения для флагов объявляются библиотекой типов Visio в VisCutCopyPasteCodes и описаны в следующей таблице.

Флаг Значение Описание
visCopyPasteNormal &H0 Следуйте поведению копирования по умолчанию.
visCopyPasteNoTranslate &H1 Копировать фигуры в исходные расположения координат.
visCopyPasteCenter &H2 Скопируйте фигуры в центр страницы.
visCopyPasteNoHealConnectors &H4 Не очищайте соединители, присоединенные к вырезанным фигурам.
visCopyPasteNoContainerMembers &H8 Не вырезайте и не копируйте невыбранные члены контейнеров или списков.
visCopyPasteNoAssociatedCallouts &H16 Не вырезайте и не копируйте невыбранные выноски, связанные с фигурами.
visCopyPasteDontAddToContainers &H32 Не добавляйте фигуры в базовые контейнеры.
visCopyPasteNoCascade &H64 Не смещайте фигуры при копировании.

Установка параметра Flags в visCopyPasteNormal эквивалентна поведению в пользовательском интерфейсе. Вы должны использовать visCopyPasteNormal и другие флаги согласованно. Например, если для копирования используется значение visCopyPasteNoTranslate , это значение также следует использовать для вставки, так как это единственный способ убедиться, что фигуры будут вставляться в исходное расположение координат.

Чтобы создать копию без использования буфера обмена, используйте метод Дублировать .

Пример

В следующем примере показано, как использовать метод Copy . Он рисует прямоугольник, а затем копирует его в буфер обмена.

 
Public Sub Copy_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
End Sub

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

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