[powerpoint] <RESOLU> insérer automatiquement une image par diapo

Marsh Posté le 07-09-2005 à 09:57:53

Bonjour,

Je dois réaliser une présentation dont chaque diapo contient une image. Les images sont stockées dans un même dossier et il y en a environ 200. Comment automatiser ce processus ? Est-ce facile de le faire à l'aide d'une macro vba ? sinon y-a-til une autre solution plus simple.

merci!

Junty94.

Message édité par junty94 le 07-09-2005 à 15:05:31

Reply

Marsh Posté le 07-09-2005 à 09:57:53

Reply

Marsh Posté le 07-09-2005 à 10:14:38

pourquoi ne pas directement faire un diaporama sur les images ? [:spamafote]

Reply

Marsh Posté le 07-09-2005 à 13:36:38

flash_gordon a écrit :

pourquoi ne pas directement faire un diaporama sur les images ? [:spamafote]

Oui ca pourrait etre une solution mais le pb est qu'il faut aussi des titres.. A la limite, c'est vrai que je pourrais faire les titres en image, qui s'intercaleraient entre les séquences...

Mais j'aimerais qd meme bien réussir à faire un diapo pour d'autres raisons : ajout de sons, liens, ...

Reply

Marsh Posté le 07-09-2005 à 15:02:58

C'est bon, j'ai réussi à faire la macro.. donc si ca interesse quelqu'un :

pour info, elle prends toutes les images situées dans C:\aaa\h (images horizontales) et C:\aaa\v (images verticales). Les redimensionnements d'images sont prévus pour des tailles originales de 2048 x 1536 (photos numériques 3 Mpixels)

En esperant que ca puisse servir

Code :

Sub newdiapoinsertimg()
Dim Myfile
Dim i As Integer
Dim cheminh As String
Dim cheminv As String
i = 1
Myfileh = Dir("C:\aaa\h\" & "*.jpg" )
Do While Myfileh <> ""
With ActivePresentation.Slides
.Add .Count + 1, ppLayoutBlank
End With
ActiveWindow.View.GotoSlide (i)
i = i + 1
Myfileh = "C:\aaa\h\" & Myfileh
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=Myfileh, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=8, Top:=8, Width:=702, Height:=527).Select
Myfileh = Dir
Loop
Myfilev = Dir("C:\aaa\v\" & "*.jpg" )
Do While Myfilev <> ""
With ActivePresentation.Slides
.Add .Count + 1, ppLayoutBlank
End With
ActiveWindow.View.GotoSlide (i)
i = i + 1
Myfilev = "C:\aaa\v\" & Myfilev
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=Myfilev, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=162, Top:=8, Width:=395, Height:=527).Select
Myfilev = Dir
Loop
If ActivePresentation.HasTitleMaster Then
With ActivePresentation.TitleMaster.Background
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = ppForeground
.Fill.Transparency = 0#
.Fill.Solid
End With
End If
With ActivePresentation.SlideMaster.Background
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = ppForeground
.Fill.Transparency = 0#
.Fill.Solid
End With
With ActivePresentation.Slides.Range
.FollowMasterBackground = msoTrue
.DisplayMasterShapes = msoTrue
End With
End Sub

Reply

Marsh Posté le 07-09-2005 à 15:04:38

Le code est certainement pas bien le meilleur mais ca marche...

En plus, j'ai oublié de préciser que les images étaient centrées automatiquement et que l'arriere-plan de chaque diapo était noir.

@++

Reply

Marsh Posté le 07-09-2005 à 15:04:55

Sous Powerpoint 2003: Menu Insertion -> images > nouvel album photo

Reply

Marsh Posté le 07-09-2005 à 15:07:22

Désolé, je suis sous 2000/XP.

merci quand meme.

Reply

Marsh Posté le 07-09-2005 à 15:09:21

Y a pas l'option sous Powerpoint XP ? J'aurais juré...

Reply

[powerpoint] <RESOLU> insérer automatiquement une image par diapo

Sujets relatifs:

Leave a Replay