Discussion :

[ludozebest]

Bonjour à tous,

sur PPT je créé un diaporama en utilisant le bouton "insertion>>album photo".
Ensuite, je modifie la taille des diapos et à ce moment, la taille des photos est modifiée.
Je dois alors cliquer droit sur chaque photo "taille et proportion >> rétablir"

Le probleme est que j'ai parfois une centaine de photo à redimensionner.

Quelqu'un pourrait m'indiquer la fonction à utiliser en VBA ?

Merci par avance pour votre aide !!

LD

[Jean-Philippe André]

Salut,

Est-ce que ton problème est similaire à celui-ci :
https://www.developpez.net/forums/d1...blir-sous-vba/
?

[mromain]

Bonjour à tous,

Pour ma part, je n'ai pas compris la même chose que Jean-Philippe.

Voici un essai qui redimensionne à la taille originale toutes les images de tous les slides de la présentation active :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ResizeImg()
Dim l_o_pres As Presentation
Dim l_o_sld As Slide
Dim l_o_shp As Shape
 
    Set l_o_pres = ActivePresentation
 
    For Each l_o_sld In l_o_pres.Slides
        For Each l_o_shp In l_o_sld.Shapes
            If l_o_shp.Type = msoPicture Then l_o_shp.ScaleWidth 1, msoCTrue
        Next l_o_shp
    Next l_o_sld
End Sub

A+