Quiter le mode diaporama de powerpoint avec macro Excel

[Résolu/Fermé]
Signaler
Messages postés
3
Date d'inscription
mercredi 4 novembre 2009
Statut
Membre
Dernière intervention
12 octobre 2012
-
Messages postés
3
Date d'inscription
mercredi 4 novembre 2009
Statut
Membre
Dernière intervention
12 octobre 2012
-
Bonjour,

Bonjour,

Depuis ma macro Excel je pilote une présentation powerpoint. Le powerpoint tourne en continue et je viens toute les x minutes coller une image dans le slide n°1. mais cela ne foncitonne pas lorsque le powerpoitn est en mode diaporama. J'aimerais quiter ce mode pour pouvoir coller mon immage et le reprendre juste après.

Voici le code pour le moment

'ENVOYER VERS PPT
'supprimer image
Set PPApp = GetObject(Class:="Powerpoint.Application")
activatepresentation.Application.Quit
PPApp.ActivePresentation.Slides(1).Shapes("Indic").Delete
'Copier tableau
    Sheets("Affichage GP").Select
    Range("A1:L40").Select
    Selection.Copy
'inserer image dans ppt
Set PPApp = GetObject(Class:="Powerpoint.Application")
PPApp.ActivePresentation.Slides(1).Shapes.PasteSpecial(ppPasteDefault, link:=True).Select
PPApp.ActivePresentation.Slides(1).Shapes(1).Name = "Indic"
With PPApp.ActivePresentation.Slides(1).Shapes("Indic")
.Width = .Width * 1.5
.Top = 25
.Left = 50
End With

'Relancer le diaporama
PPApp.ActivePresentation.SlideShowSettings.Run




2 réponses

Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
880
Salut le forum

Peut-être avec un SendKeys
PPApp.SendKeys("{ESC}")
Mytå

Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]
Messages postés
3
Date d'inscription
mercredi 4 novembre 2009
Statut
Membre
Dernière intervention
12 octobre 2012

Salut Myta,

Merci pour ta réponse ;)

Je viens d'essayer le sendkey mais cela ne marche pas. Ca m'affiche le code erreur 438: "Propriété ou méthode non géré par cet objet"