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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [powerpoint] <RESOLU> insérer automatiquement une image par diapo

junty94

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

Publicité

flash_gordon

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

junty94

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, ...

junty94

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

junty94

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.

@++

mouss_diouf

Ready to ride.

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

junty94

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

merci quand meme.

mouss_diouf

Ready to ride.

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

FORUM HardWare.fr

Windows & Software

Logiciels

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

Sujets relatifs
Faire une image d'un système RAID 0 ?	Mettre du son sur plusieurs diapos sous Powerpoint
[Resolu] Freebox avec un routeur +tv +tele, c'est possible ?	[Résolu] Impossible de monter un domaine avec SBS2003 SP1
[Résolu] besoin d'aide !!! (J'ai effacé toutes mes données)	[RESOLU] internet
[RESOLU] Pas d'attribution d'adresse via DHCP	[résolu]Dossier "Logs" créé sur mon bureau
Problème de boot sur fichier image ISO dans VMware	Quel logiciel pour graver l'image iso de MandrakeLinux au mieu
Plus de sujets relatifs à : [powerpoint] <RESOLU> insérer automatiquement une image par diapo

Page générée en 0.058 secondes