Метод Shape.Cut (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 , это значение также следует использовать для вставки, так как это единственный способ убедиться, что фигуры будут вставляться в исходное расположение координат.
В следующем примере показано, как использовать метод Cut . Он рисует прямоугольник, а затем вырезает его со страницы (и помещает его в буфер обмена).
Public Sub Cut_Example()
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1)
'Cut shape from the page
vsoShape.Cut
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.