Lancer PowerPoint en mode plein écran

Comment lancer PowerPoint depuis Excel en mode présentation plein écran ?

Comme Excel, PowerPoint possède un enregistreur de macros (lancé par Outils\Macro\Nouvelle macro) qui peut te permettre de débuter en générant le code correspondant aux actions que tu effectues (ouvrir une présentation, l'afficher en diaporama, etc.).
A partir de ces éléments (qui donnent de bons points de départ sur les objets et méthodes utilisés dans PowerPoint) tu peux écrire un code qui sera exécuté à partir d'Excel. Par exemple, en adaptant le nom de la présentation que tu veux lancer (code à recopier dans un module standard d'un classeur Excel) :

sub LancePresentation()
 Dim FichierPpt, pwpt, presppt
 FichierPpt = "D:\Cheni2003\mysql\mysql.ppt" 'à adapter
 Set pwpt = CreateObject("PowerPoint.Application")
 pwpt.Visible = True
 Set presppt = pwpt.presentations.Open(Filename:=FichierPpt)
 presppt.SlideShowSettings.Run
 end sub

Auteur :

Mots clefs associés à cette page : ,