cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024
-
29 nov. 2008 à 11:39
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 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.