Diaporama sur PowerPoint

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 29 nov. 2008 à 11:39
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 1 déc. 2008 à 09:30
Le Pivert  
Bonjour
Je cherche à faire un diaporama  PowerPoint en VB2005.
 Voici le code:

With ppPres.Slides.Item(1).Shapes
'*** Insère l'image.
On
Error
Resume
Next
'*** Ajoute image à la dimension désirée
For i = 0
To ListBox1.Items.Add(-1)
shapePicture = .AddPicture(ListBox1.SelectedItems(i), Microsoft.Office.Core.MsoTriState.msoTrue, Microsoft.Office.Core.MsoTriState.msoTrue, 0, 0, 720, 540)
ppCurrentSlide = ppPres.Slides.Add(Index:=2, Layout:=PowerPoint.PpSlideLayout.ppLayoutBlank)

Next i

End
With

Avec ce code j'ai le Nbre de slide et d'images sélectionnés, mais toutes les images sont sur le 1er slide.
Il faudrait qu'il y ai une image par slide.
Merci pour vos réponses.

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
1 déc. 2008 à 09:30
Le Pivert  
J'ai trouvé voici la solution:
http://www.vbfrance.com/codes/CREER-DIAPORAMA-PTT_48595.aspx
0
Rejoignez-nous