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

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


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