Controler partiellement powerpoint

Soyez le premier à donner votre avis sur cette source.

Vue 5 416 fois - Téléchargée 561 fois

Description

Vous pourrez controler partiellement powerpooint.
Il suffit d'ajouter dans projets références microsoft powerpiont 11.0(ou inférieru) object library
Je ne pas comment faire pour ajouter une diapositive.Si qu'elqu'un le sait merci de me le dire.

Daetips
Brice1988@wanadoo.fr
www.daetip.fr.st
www.vbfr.fr.fm

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
41
Date d'inscription
mardi 23 janvier 2007
Statut
Membre
Dernière intervention
6 mars 2007

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
Messages postés
4
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
18 octobre 2006

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
Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007

Merci beaucoup

daetips
brice1988@wanadoo.fr
www.vbfr.fr.fm
www.daetip.fr.st
Messages postés
22
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
31 janvier 2011

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)
Messages postés
22
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
31 janvier 2011

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)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.