[RESUELTO] Animación por defecto

Discute sobre la aplicación de presentaciones

[RESUELTO] Animación por defecto

Notapor José Trujillo » Dom Feb 18, 2018 1:18 pm

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
José Trujillo
 
Mensajes: 3
Registrado: Dom Feb 18, 2018 1:10 pm

Re: Animación por defecto

Notapor mauricio » Lun Feb 19, 2018 6:41 am

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   Expandir vistaContraer vista
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
AOO 4.1 | LibO 5.4 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5590
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Animación por defecto

Notapor mauricio » Lun Feb 19, 2018 6:54 am

Y si quieres aplicar solo a los objetos seleccionados, usas:
Código: Seleccionar todo   Expandir vistaContraer vista
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
AOO 4.1 | LibO 5.4 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5590
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Animación por defecto

Notapor José Trujillo » Mar Feb 20, 2018 10:11 pm

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   Expandir vistaContraer vista
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
José Trujillo
 
Mensajes: 3
Registrado: Dom Feb 18, 2018 1:10 pm


Volver a Impress

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados