Recherche
Recherche
Les mémos
Je débute...
Visites

 998947 visiteurs

 2 visiteurs en ligne

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 3046 fois