Objeto ScaleEffect (PowerPoint)
Representa un efecto de escala para un objeto AnimationBehavior.
Ejemplo:
Utilice la propiedad ScaleEffect del objeto AnimationBehavior para devolver un objeto ScaleEffect. En el siguiente ejemplo hace referencia al efecto de escala de un comportamiento de animación.
ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).ScaleEffect
Utilice las propiedades ByX ,ByY ,FromX ,FromY ,ToX yToY del objeto ScaleEffect para manipular la escala de un objeto. En este ejemplo se aplica una escala a la primera forma de la primera diapositiva a partir de cero incrementando el tamaño hasta que alcanza el 100 por ciento de su tamaño original. En este ejemplo se supone que hay una forma de la primera diapositiva.
Sub ChangeScale()
Dim shpFirst As Shape
Dim effNew As Effect
Dim aniScale As AnimationBehavior
Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpFirst, effectId:=msoAnimEffectCustom)
Set aniScale = effNew.Behaviors.Add(msoAnimTypeScale)
With aniScale.ScaleEffect
'Starting size
.FromX = 0
.FromY = 0
'Size after scale effect
.ToX = 100
.ToY = 100
End With
End Sub
Consulte también
Referencia del modelo de objetos de PowerPoint
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de