Compartilhar via

propriedade RotationEffect.By (PowerPoint)

  • Artigo

Define ou retorna um valor único que representa a rotação de um objeto pelo número especificado de graus; Por exemplo, um valor 180 significa girar o objeto 180 graus. Leitura/gravação.

Sintaxe

expression. By

Expressão Uma variável que representa um objeto RotationEffect .

Comentários

O objeto especificado será girado, com o centro do objeto permanecendo na mesma posição na tela.

Se por e para propriedades são definidas para um efeito de rotação, o valor da propriedade By será ignorado.

Números em ponto flutuante (por exemplo, 55,5) são válidos, mas não números negativos.

Não confunda esta propriedade com a ByX ou ByY propriedades dos objetos ScaleEffect e MotionEffect, que são usadas somente para efeitos de dimensionamento ou movimentação.

Exemplo

Este exemplo adiciona um efeito de rotação e altera sua rotação.

Sub AddAndChangeRotationEffect()
    Dim effBlinds As Effect
    Dim tmlnShape As TimeLine
    Dim shpShape As Shape
    Dim animBehavior As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Sets shape, timing, and effect
    Set shpShape = ActivePresentation.Slides(1).Shapes(1)
    Set tmlnShape = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlnShape.MainSequence.AddEffect _
        (Shape:=shpShape, effectId:=msoAnimEffectBlinds)

    'Adds animation behavior and sets rotation effect
    Set animBehavior = tmlnShape.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animBehavior.RotationEffect

    rtnEffect.By = 270
End Sub

Confira também

Objeto RotationEffect

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.