Propriedade ScaleEffect.ByY (PowerPoint)
Define ou retorna um único que representa o dimensionamento ou movimentação de um objeto verticalmente em uma porcentagem especificada da largura da tela, dependendo se ele é usado em conjunto com um objeto ScaleEffect ou MotionEffect, respectivamente. Leitura/gravação.
Sintaxe
expression. ByY
Expressão Uma variável que representa um objeto ScaleEffect .
Valor de retorno
Único
Comentários
Números negativos movem o objeto horizontalmente para a esquerda. Números de pontos de flutuação (por exemplo, 55,5) são permitidos.
Para dimensionar ou mover um objeto horizontalmente, use a propriedade ByX.
Se as propriedades de Propriedade ByX e ByY estiverem definidas, o objeto será dimensionado ou move horizontal e verticalmente.
Não confunda essa propriedade com a propriedade por dos objetos ColorEffect, RotationEffect ou PropertyEffect, que é usada para definir as cores, rotações ou outras propriedades de um comportamento de animação, respectivamente.
Exemplo
O exemplo a seguir adiciona um caminho para a animação; e define os movimentos vertical e horizontal da forma.
Sub AddMotionPath()
Dim effCustom As Effect
Dim animBehavior As AnimationBehavior
Dim shpRectangle As Shape
'Adds rectangle and sets effect and animation
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=300, _
Top:=300, Width:=300, Height:=150)
Set effCustom = ActivePresentation.Slides(1).TimeLine _
.MainSequence.AddEffect(Shape:=shpRectangle, _
effectId:=msoAnimEffectCustom)
Set animBehavior = effCustom.Behaviors.Add(msoAnimTypeMotion)
'Specifies animation motion
With animBehavior.MotionEffect
.ByX = 50
.ByY = 50
End With
End Sub
Confira também
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.