Propriedade ShapeRange.VerticalFlip (Publisher)
Retorna msoTrue se a forma especificada tiver sido invertida em torno de seu eixo vertical. Somente leitura.
Sintaxe
expressão. VerticalFlip
Expressão Uma variável que representa um objeto ShapeRange .
Comentários
O valor da propriedade VerticalFlip pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.
Constante | Descrição |
---|---|
msoFalse | A forma não foi invertida em torno de seu eixo vertical. |
msoTriStateMixed | Um valor retornado que indica uma combinação de msoTrue e msoFalse para o intervalo de formas especificado. |
msoTriStateToggle | Um valor definido que alterna entre msoTrue e msoFalse. |
msoTrue | A forma foi invertida em torno de seu eixo vertical. |
Exemplo
Este exemplo restaura cada forma da publicação ativa ao seu estado original, caso tenha sido invertida horizontalmente ou verticalmente.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.