Метод 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 и обратная связь.