Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Outlook lancer diaporama sur un pptx

F

fredl

XLDnaute Impliqué
Bonjour,

je me permets de m'adresser à vous, suite à recherche infructueuse dans le forum.
Existe t'il une instruction vba permettant de lancer (le diaporama) d'une presentation (.pptx) après son ouverture?

nb : je precise que je ne souhaite pas ici transformer mon .pptx en ppsx(diaporama).

Merci d'avance pour votre aide.

Frédéric

ma macro utilisée depuis Excel :
dim powepointApp As Object
Set powepointApp = CreateObject("powerpoint.Application")
powepointApp.Visible = True
powepointApp.Presentations.Open ("S" & RepGestion & "DIA\ProcédureDIA.pptx"), ReadOnly:=True
Set powepointApp = Nothing
 
Dernière édition:
Trier par date Trier par votes

mromain

XLDnaute Barbatruc
Re : lancer diaporama sur un pptx

Bonjour fredl, le forum,

Tu peux tester ce code (depuis Excel) :
VB: 
Sub Test()
Dim powepointApp As Object
Dim powepointPres As Object
    Set powepointApp = CreateObject("powerpoint.Application")
    powepointApp.Visible = True
    Set powepointPres = powepointApp.Presentations.Open("S" & RepGestion & "DIA\ProcédureDIA.pptx", ReadOnly:=True)
    powepointPres.SlideShowSettings.Run
    Set powepointPres = Nothing
    Set powepointApp = Nothing
End Sub

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…