En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1245130 visiteurs

 1 visiteur en ligne

Nous contacter

Contact

Démarrer un diaporama

Pour démarrer un fichier PowerPoint en mode diaporama, on peut utiliser la fonction suivante que l'on placera dans un module général.

Ensuite, il suffit de créer un bouton sur un formulaire, ou utiliser un autre événement, pour démarrer le diaporama.

Option Compare Database
Option Explicit

'/ partie déclarative
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const RPC_E_CALL_REJECTED = &H80010001

  La fonction : 

Function ViewPPSX(sFile)
    '/
    '/ Syntaxe :
    '/ ViewPPSX [nom-du-champ]
    '/ ou
    '/ ViewPPSX "E:/MonFichier.ppsx"
    '/
    Dim ppObject As Object
    Dim ppPres As Object
    Dim ppSSW As Object
    Dim State As Long

    On Error Resume Next

    Set ppObject = CreateObject("PowerPoint.Application")
    Set ppPres = ppObject.Presentations.Open(sFile, False, False, False)
    Set ppSSW = ppPres.SlideShowWindow
    If ppSSW Is Nothing Then
        Set ppSSW = ppPres.SlideShowSettings.Run
    End If

    State = ppSSW.View.State
    Err.Clear
    Do While (Err.Number = RPC_E_CALL_REJECTED) Or (Err.Number = 0)
        DoEvents
        Sleep 1000
        State = ppSSW.View.State
    Loop

    ppPres.Close
    ppObject.Quit
    Set ppPres = Nothing
    Set ppObject = Nothing
End Function

Catégorie : Les mémos - Automation
Page lue 4380 fois
Vous êtes ici :   Accueil » Démarrer un diaporama