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

Свойство Shape.VerticalFlip (издатель)

  • Статья

Возвращает msoTrue, если указанная фигура была перевернута вокруг вертикальной оси. Только для чтения.

Синтаксис

expression. VerticalFlip

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

Замечания

Значение свойства может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа Описание
msoFalse Фигура не была перевернута вокруг вертикальной оси.
msoTriStateMixed Указывает сочетание msoTrue и msoFalse для указанного диапазона фигур.
msoTrue Фигура была перевернута вокруг вертикальной оси.

Пример

В этом примере каждая фигура активной публикации восстанавливается в исходное состояние, если она была перевернута по горизонтали или вертикали.

Sub Flipper() 
 
 Dim shpBall As Shape 
 
 For Each shpBall In ActiveDocument.MasterPages.Item(1).Shapes 
 If shpBall.HorizontalFlip = msoTrue Then shpBall.Flip msoFlipHorizontal 
 If shpBall.VerticalFlip = msoTrue Then shpBall.Flip msoFlipVertical 
 Next 
 
End Sub

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

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