Clase PlaySettings (PowerPoint VBA)

Contiene información sobre cómo se reproducirá el clip multimedia especificado durante una presentación con diapositivas.

Set

Para usar una variable de clase PlaySettings, primero debe ser instanciado, por ejemplo

Dim pss as PlaySettings
Set pss = ActiveWindow.RangeFromPoint.AnimationSettings.PlaySettings

Los siguientes procedimientos se pueden usar para establecer variables de clase PlaySettings : AnimationSettings.PlaySettings y EffectInformation.PlaySettings

ActionVerb

Devuelve o establece una cadena que contiene el verbo OLE que se ejecutará cuando tenga lugar la animación del objeto OLE especificado durante una presentación con diapositivas. Lectura y escritura.

El verbo predeterminado especifica la acción que ejecuta el objeto OLE (como la reproducción de un archivo de onda o la presentación de datos, de forma que el usuario pueda realizar modificaciones) después de la animación anterior o de la transición de diapositiva.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings.ActionVerb = "Edit"

HideWhileNotPlaying

Determina si el clip multimedia especificado está oculto durante la presentación con diapositivas mientras no se reproduzca. Lectura y escritura.

El valor de la propiedad HideWhileNotPlaying puede ser una de estas constantes MsoTriState .

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings.HideWhileNotPlaying = msoTrue

LoopUntilStopped

Determina si la película o el sonido especificados se repiten continuamente hasta que se inicie la siguiente película o sonido, hasta que el usuario haga clic en la diapositiva o hasta que se produzca una transición de diapositiva. Lectura y escritura.

El valor de la propiedad LoopUntilStopped puede ser una de estas constantes MsoTriState .

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings.LoopUntilStopped = msoTrue

Parent

Devuelve el objeto primario del objeto especificado.

PauseAnimation

Determina si la presentación con diapositivas se pausa hasta que el clip multimedia especificado termina de reproducirse. Lectura y escritura.

Para que el valor de la propiedad PauseAnimation surta efecto, la propiedad PlayOnEntry de la forma especificada debe establecerse en msoTrue. El valor de la propiedad PauseAnimation puede ser una de estas constantes MsoTriState .

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings.PauseAnimation = msoTrue

PlayOnEntry

Determina si la película o el sonido especificados se reproducen automáticamente cuando se produce la animación. Lectura y escritura.

Al establecer esta propiedad en msoTrue se establece la propiedad Animate del objeto AnimationSettings en msoTrue. La propiedad Animate en msoFalse establece automáticamente la propiedad PlayOnEntry en msoFalse. Utilice la propiedad ActionVerb para establecer el verbo que se invocará cuando se anime el clip multimedia. El valor de la propiedad PlayOnEntry puede ser una de estas constantes MsoTriState .

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings.PlayOnEntry = msoTrue

RewindMovie

Determina si el primer fotograma de la película especificada vuelve a mostrarse automáticamente en cuanto finaliza la reproducción de la película. Lectura y escritura.

El valor de la propiedad RewindMovie puede ser una de estas constantes MsoTriState .

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings.RewindMovie = msoTrue

StopAfterSlides

Devuelve o establece el número de diapositivas que se mostrarán antes de que se detenga la reproducción del clip multimedia. Lectura y escritura.

Para que el valor de la propiedad StopAfterSlides surta efecto, la propiedad PauseAnimation de la diapositiva especificada debe establecerse en falsey la propiedad PlayOnEntry debe establecerse en true. La reproducción del clip multimedia se detiene una vez mostrado el número de diapositivas especificado o una vez terminado el clip (lo que ocurra primero). El valor 0 (cero) especifica que la reproducción del clip se detendrá después de la diapositiva actual.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings.StopAfterSlides = 3