propriedade RotationEffect.To (PowerPoint)

Define ou retorna um valor único que representa a rotação final de um objeto em graus, especificada em relação à tela (por exemplo, 90 graus é completamente horizontal). Leitura/gravação.

Sintaxe

expression. To

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

Valor de retorno

Único

Comentários

Use essa propriedade em conjunto com a propriedade From para fazer a transição de um ângulo de rotação para outro.

O valor padrão é vazio, caso em que a posição atual do objeto é usada.

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

Exemplo

O exemplo a seguir adiciona um efeito de rotação e altera imediatamente seu ângulo de rotação de 90 graus para 270 graus.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tmlTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColor As AnimationBehavior
    Dim rtnEffect As RotationEffect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes(1)
    Set tmlTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animColor = tmlTiming.MainSequence(1).Behaviors.Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animColor.RotationEffect
    rtnEffect.From = 90
    rtnEffect.To = 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.