[RESUELTO] Animación por defecto

[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?

[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

[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...

[José Trujillo]

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.