Il faudrait que chaque photo soit sur une diapo différente...
Merci d'avance
Jonathan GREGOIRE
Va falloir adapter, mais cette macro prend toutes les images JPG du
dossier d:\AnniClaudy et en fait un nouveau diaporama.
Sub Nouveaudiaporama()
'
' Macro enregistrée le 2000-09-26 par Clément Marcotte
Dim iIndexPosn As Integer
ActiveWindow.ViewType = ppViewSlideSorter
If ActivePresentation.Slides.Count > 0 Then
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Count
ActivePresentation.Slides.Range.Select
ActiveWindow.Selection.SlideRange.Delete
End If
ActiveWindow.ViewType = ppViewSlide
ActiveWindow.View.GotoSlide
Index:=ActivePresentation.Slides.Add(Index:=1,
Layout:=ppLayoutText).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
With Application.FileSearch
.LookIn = "d:\AnniClaudy"
.FileName = "*.jpg" 'Pour d'autes formats de fichier, changer
l'extension
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0 Then
MsgBox "Aucun fichier n'a été trouvé. Fin du programme"
Exit Sub
Else
total = .FoundFiles.Count
End If
End With
'choisir l'ordre de présentation des diapositives dans la
présentation
'en choisissant l'une ou l'autre des instructions for
'For i = 1 To total 'le numéro 1 est le dernier dans l'ordre de
présentation
For i = total To 1 Step -1
fichier = Application.FileSearch.FoundFiles(i)
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=fichier,
_
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=72,
Top:=54, Width:=576, Height:=432).Select
ActiveWindow.View.GotoSlide
Index:=ActivePresentation.Slides.Add(Index:=1, _
Layout:=ppLayoutText).SlideIndex
premierzero = 0
secondzero = 0
Next
ActiveWindow.Selection.SlideRange.Delete
With ActivePresentation.Slides.Range.SlideShowTransition
.EntryEffect = ppEffectRandom
.Speed = ppTransitionSpeedFast
.AdvanceOnClick = msoTrue
.AdvanceOnTime = msoTrue
.AdvanceTime = 10
.SoundEffect.Type = ppSoundNone
End With
ActivePresentation.SaveAs FileName:="d:\AnniClaudy\claudy.pps", _
FileFormat:=ppSaveAsShow, EmbedTrueTypeFonts:=msoFalse
End Sub
Sinon il y a ceci. (Jamais essayé)
http://www.mvps.org/skp/iiw.htm
Il y a moyen de télécharger une version Démo d'un programme commercial
qui importe des images dans PowerPoint.
"GREGOIRE Jonathan" <jonathan...@skynet.be> a écrit dans le
message de news:3f77253f$0$826$ba62...@reader2.news.skynet.be...
tu ne donnes pas ta version de PowerPoint.
L'utilitaire "Album photo" proposé par Microsoft répond à ta demande.
Pour PowerPoint 2000, tu peux le télécharger gratuitement à l'adresse
suivante :
http://office.microsoft.com/france/downloads/2000/album.aspx
Pour Powerpoint 2002, il est directement accessible depuis le menu Insertion
| Images | Nouvel album photo.
Il n'existe pas pour PowerPoint 97 (voir la macro proposée par Clément).
Cordialement,
Annette
---------------------------------------------------------------------------
www.horizon-micro.com
"GREGOIRE Jonathan" <jonathan...@skynet.be> a écrit dans le message de
news: 3f77253f$0$826$ba62...@reader2.news.skynet.be...