Compartilhar via

Propriedade RotationEffect.From (PowerPoint)

  • Artigo

Define ou retorna um valor único que representa o ângulo inicial em graus, especificada em relação à tela (por exemplo, 90 graus é completamente horizontal). Leitura/gravação.

Sintaxe

expression. From

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

Comentários

Use essa propriedade junto com a propriedade To para mudar 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 FromX ou FromY 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.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animRotation As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes_
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set tlnTiming = ActivePresentation.Slides(1).TimeLine

    Set effBlinds = tlnTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)

    Set animRotation = tlnTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)

    Set rtnEffect = animRotation.RotationEffect

    'Sets the rotation effect starting and ending positions
    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.