Página 1 de 1
[RESUELTO] Animación por defecto
Publicado: Dom Feb 18, 2018 1:18 pm
por José Trujillo
He buscado en bastante sitios y no encuentro respuesta a esta cuestión:
¿Hay algún modo de establecer una animación por defecto que no sea Aparecer.
Cada vez que marco la animación de un objeto, se marca como tipo de animación "Aparecer", cuando más del 90% de mis animaciones son (por preferencia académica) "Barrido".
¿Sabéis si es posible cambiar este comportamiento?
Re: Animación por defecto
Publicado: Lun Feb 19, 2018 6:41 am
por mauricio
Tal vez tocando los archivos de configuración, pero otra forma más divertida y versátil, es usar una macro...
Si el 90% de tus objetos usan este efecto, entonces, agrega todos los objetos que necesites, y ejecuta la siguiente macro, que cambiara a este efecto todos los objetos de toda al presentación, entonces, solo cambias el 10% restante.
Código: Seleccionar todo
Const DEFAULT As Long = 2
Sub AplicarEfecto()
doc = ThisComponent
For i = 0 To doc.DrawPages.Count - 1
dp = doc.DrawPages.getByIndex(i)
For j = 0 To dp.Count - 1
obj = dp.getByIndex(j)
obj.Effect = DEFAULT
Next
Next
End Sub
Para saber el número que debes de usar para cada animación, mira por aquí:
https://www.openoffice.org/api/docs/com ... ffect.html
Empiezan en 0
Saludos
Re: Animación por defecto
Publicado: Lun Feb 19, 2018 6:54 am
por mauricio
Y si quieres aplicar solo a los objetos seleccionados, usas:
Código: Seleccionar todo
Sub AplicarEfectoSeleccion()
sel = ThisComponent.CurrentController.Selection
For i = 0 To sel.Count - 1
obj = sel.getByIndex(i)
obj.Effect = DEFAULT
Next
End Sub
TIP: Cuidado con lo que esta seleccionado...
Re: Animación por defecto
Publicado: Mar Feb 20, 2018 10:11 pm
por José Trujillo
mauricio escribió:Tal vez tocando los archivos de configuración, pero otra forma más divertida y versátil, es usar una macro...
Si el 90% de tus objetos usan este efecto, entonces, agrega todos los objetos que necesites, y ejecuta la siguiente macro, que cambiara a este efecto todos los objetos de toda al presentación, entonces, solo cambias el 10% restante.
Código: Seleccionar todo
Const DEFAULT As Long = 2
Sub AplicarEfecto()
doc = ThisComponent
For i = 0 To doc.DrawPages.Count - 1
dp = doc.DrawPages.getByIndex(i)
For j = 0 To dp.Count - 1
obj = dp.getByIndex(j)
obj.Effect = DEFAULT
Next
Next
End Sub
Para saber el número que debes de usar para cada animación, mira por aquí:
https://www.openoffice.org/api/docs/com ... ffect.html
Empiezan en 0
Saludos
Efectivamente. Ha funcionado. Y el valor que necesito es precisamente el que has puesto en el ejemplo.
Muchísimas gracias. Te quedo enormemente agradecido.