CONTROLER PARTIELLEMENT POWERPOINT

titim77 Messages postés 22 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 31 janvier 2011 - 17 mai 2004 à 08:53
cs_into Messages postés 41 Date d'inscription mardi 23 janvier 2007 Statut Membre Dernière intervention 6 mars 2007 - 5 févr. 2007 à 15:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/22821-controler-partiellement-powerpoint

cs_into Messages postés 41 Date d'inscription mardi 23 janvier 2007 Statut Membre Dernière intervention 6 mars 2007
5 févr. 2007 à 15:05
le code fonctionne très bien merci!
moi je cherche a afficher le powerpoint dans une picturebox ou une autre zone!
j'ai essayé monpicturebox=PowerP.Presentations.Open(cheminPowerP)
mais ya une erreur!
auriez-vous une solution merci
mexong Messages postés 4 Date d'inscription mercredi 9 mars 2005 Statut Membre Dernière intervention 18 octobre 2006
23 nov. 2006 à 16:19
je cherche simplement à afficher un powerpoint dans mon appli, sans nécessairement avoir microsoft office (eventuellement le viewer gratuit),

avez vous une idée?

merci
daetips Messages postés 142 Date d'inscription jeudi 10 juillet 2003 Statut Membre Dernière intervention 10 novembre 2007
4 juin 2004 à 15:21
Merci beaucoup

daetips
brice1988@wanadoo.fr
www.vbfr.fr.fm
www.daetip.fr.st
titim77 Messages postés 22 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 31 janvier 2011
17 mai 2004 à 08:53
salut , voici la commande pour ajouter une diapo

Dim ppApp
Dim PPT
Dim Sl
Const ppBackground = 1
Const msoFalse = 0
Const ppLayoutBlank = 12
Set ppApp = CreateObject("PowerPoint.Application")
Set PPT = ppApp.Presentations.Add
Set Sl = PPT.Slides.Add(PPT.Slides.Count + 1, ppLayoutBlank)
titim77 Messages postés 22 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 31 janvier 2011
17 mai 2004 à 08:53
salut , voici la commande pour ajouter une diapo

Dim ppApp
Dim PPT
Dim Sl
Const ppBackground = 1
Const msoFalse = 0
Const ppLayoutBlank = 12
Set ppApp = CreateObject("PowerPoint.Application")
Set PPT = ppApp.Presentations.Add
Set Sl = PPT.Slides.Add(PPT.Slides.Count + 1, ppLayoutBlank)
Rejoignez-nous