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