Redimensionner toutes les images d'une présentation

Ai trouvé avec aide groupe us :

-------
Sub PicSize()

Dim oSld As Slide
Dim oShp As Shape
Dim iWidth As Integer
Dim iHeight As Integer
Dim iTop As Integer
Dim iLeft As Integer

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoPicture Then
If oSld.SlideIndex = 1 Then
With oShp
iWidth = .Width
iHeight = .Height
iTop = .Top
iLeft = .Left
End With
End If
With oShp
.Width = iWidth
.Height = iHeight
.Top = iTop
.Left = iLeft
End With
End If
Next oShp
Next oSld

End Sub
-------

Ce code prend coordonnées ( position et taille de l'image de la première
dia) et l'applique à toutes les autres dias
Ne fonctionne tel quel que si une image par dia
Ajuster taille-position image sur dia n° 1 puis lancer le code

Phil
"MoiMeme" <antispam@no.spam> a écrit dans le message de news:
ezwNSn8hGHA.1520@TK2MSFTNGP03.phx.gbl...

Bonjour,

comment par vba ajuster la position et la taille de toutes les images
d'une présentation en une opération ?

J'ai une présentation qui contient une centaine d'images, uen par page et
dois en changer la taille

Merci de m'aider !!