Ouvrir une presentation ppt incluse ds un fichier

[Alexbnp]

Bonjour la communaute,

Savez vous comment on fait pour ouvrir une presentation qui est deja contenue dans un fichier excel comme un objet ?

En bref, je ne sais pas ce que je dois mettre a la place de MON_OBJET dans la ligne de code ci-dessous....


Set PptDoc = PPT.Presentations.Open(MON_OBJET)

Merci par avance.
Alex

 

[jacktati]

Salut Alexbnp et le forum,
A tester !

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

@+

 

[Alexbnp]

Salut Jacktati,

Merci pour ton post, mais il ne repond pas vraiment a ma question. Peut-etre ne me suis-je pas fait assez clair en fait.

Je cherche a ouvrir une presentation qui n'est pas stocke quelque part dans un dossier et pour laquelle on connait le chemin. Mais je cherche a ouvrir une presentation qui est incrustee dans un fichier excel et qui apparait sous forme d'icone.

 

[MichelXld]

bonjour

dans cet exemple l'objet Power Point est le 1er objet dans la Feuil 1

Dim appPPT As Object
Dim Obj As Shape
Set Obj = Worksheets(1).Shapes(1)
Obj.OLEFormat.Activate
Set appPPT = Obj.OLEFormat.Object.Object.Application
appPPT.ActivePresentation.SlideShowSettings.Run


bonne journée
MichelXld

 

[Alexbnp]

Bonjour Michel

Merci pour ton code. En fait la simple ligne suivante suffit a lancer la presentation :

Obj.OLEFormat.Activate


Par contre comment faire pour ajouter un slide au fichier et l'enregistrer sous un autre nom ?
:ermm:

Bonne journee.
Alex

Message édité par: Alexbnp, à: 20/12/2005 04:41

 

[MichelXld]

bonjour

cet exemple permet d'ajouter un Slide en 2eme position dans la presentation , puis un autre Slide à la fin


Sub ajoutSlide_objetPowerPoint()
Dim appPPT As Object
Dim Obj As Shape
Dim X As Byte

Set Obj = Worksheets(1).Shapes(1)
Set appPPT = Obj.OLEFormat.Object.Object.Application
'ajouter un slide et le positionner en 2eme position
appPPT.ActivePresentation.Slides.Add Index:=2, Layout:=1

X = appPPT.ActivePresentation.Slides.Count + 1
'ajouter un slide et le positionner à la fin
appPPT.ActivePresentation.Slides.Add Index:=X, Layout:=1
Range('A1').Select
End Sub


pour enregistrer le classeur , tu peux utiliser

ThisWorkbook.SaveAs 'C:\\\\\\\\monClasseur.xls'



bonne journée
MichelXld