[RESUELTO] Animación por defecto

Discute sobre la aplicación de presentaciones
Responder
José Trujillo
Mensajes: 4
Registrado: Dom Feb 18, 2018 1:10 pm

[RESUELTO] Animación por defecto

Mensaje 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?
Última edición por mauricio el Mar Feb 20, 2018 10:52 pm, editado 2 veces en total.
Razón: Marcar resuelto correctamente
OpenOffice 4 sobre Debian 9
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Animación por defecto

Mensaje 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
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Animación por defecto

Mensaje 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...
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
José Trujillo
Mensajes: 4
Registrado: Dom Feb 18, 2018 1:10 pm

Re: Animación por defecto

Mensaje 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.
OpenOffice 4 sobre Debian 9
Responder