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

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


Метод Page.Paste (Visio)

Вставляет содержимое буфера обмена в объект .

Синтаксис

expression. Вставка (флаги)

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

Параметры

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

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

Отсутствует

Примечания

Метод Paste работает только с объектами Shape , которые являются групповыми фигурами. Используйте свойство Type фигуры, чтобы определить, является ли она группой.

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

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

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

Если необходимо управлять форматом вставленной информации и (при необходимости) установить ссылку на исходный файл (например, документ Microsoft Word), используйте метод PasteSpecial.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод Paste. Он рисует прямоугольник, копирует его, а затем вставляет копию на страницу документа.

 
Public Sub Paste_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Draw a rectangle. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
 'Paste the copy onto the drawing page. 
 ActivePage.Paste 
 
End Sub

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

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