none
Piloter Power Point RRS feed

  • Question

  • Bonjour, voici un code qui est sensé me permettre de piloter une présentation Power Point.

    Il me retourne une erreur.

    1) Comment corriger cette erreur ?

    2) est-il possible par programmation à l'ouverture du fichier Power Point de lancer le diaporama (touche F5 dans power Point)

    merci

        Private Sub Openpp()
            Dim PptApp As New PowerPoint.Application
            Dim PptDoc As Microsoft.Office.Interop.PowerPoint.Presentation
            PptDoc = PptApp.Presentations.Add()
            PptDoc = PptApp.Presentations.Open("E:\Mes documents\Formations\Excel\RaccourcisClavier.pptx")
            PptDoc.Slides.Range(2).Select()
    
        End Sub


    JF Collombet ® CreateSpecificCulture

    dimanche 25 septembre 2016 11:34

Toutes les réponses

  • J'ai réussie à corriger l'erreur avec ce code :

    Imports Microsoft.Office.Interop.PowerPoint
    
    Class MainWindow
    
        Dim ppApp As New Microsoft.Office.Interop.PowerPoint.Application
        Dim ppDoc As Microsoft.Office.Interop.PowerPoint.Presentation
        Dim Doc As String = "E:\Mes documents\Formations\Excel\RaccourcisClavier.pptx"
        Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
            ppDoc = ppApp.Presentations.Open(Doc)
            ppApp.Visible = True
            ppDoc.Slides.Range(2).Select()
        End Sub
    End Class

    Il me manque uniquement le fait de pouvoir lancer le diaporama par code.

    merci de votre aide


    JF Collombet ® CreateSpecificCulture

    dimanche 25 septembre 2016 14:25