Diaporama et photos

Bonjour,

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:¬tivePresentation.Slides.Count
ActivePresentation.Slides.Range.Select
ActiveWindow.Selection.SlideRange.Delete
End If
ActiveWindow.ViewType = ppViewSlide
ActiveWindow.View.GotoSlide
Index:¬tivePresentation.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:r,
Top:T, Width:W6, Height:C2).Select
ActiveWindow.View.GotoSlide
Index:¬tivePresentation.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:AnniClaudyclaudy.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.gregoire@skynet.be> a écrit dans le
message de news:3f77253f$0$826$ba620e4c@reader2.news.skynet.be...

Bonjour, j'aurais bien voulu savoir s'il existait un truc ou un
moyen

d'inclure une centaine de photos en quelques clics ds un
diaporama...

Il faudrait que chaque photo soit sur une diapo différente...

Merci d'avance

Jonathan GREGOIRE

Bonjour Jonathan,

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.gregoire@skynet.be> a écrit dans le message de
news: 3f77253f$0$826$ba620e4c@reader2.news.skynet.be...

Bonjour, j'aurais bien voulu savoir s'il existait un truc ou un moyen
d'inclure une centaine de photos en quelques clics ds un diaporama...

Il faudrait que chaque photo soit sur une diapo différente...

Merci d'avance

Jonathan GREGOIRE