Discussion :

[aalex_38]

Bonjour,

Dans une macro, j'insère des images dans une présentation powerpoint et je voudrai que :
-La taille de l'image reste proportionnelle
- Qu'elle occupe toute la diapositive qu'elle soit trop grande ou trop petite.

Voici ma fonction qui ajoute les images :

Code :

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

1
2
3
4
5
6
7
8
9
Function ajoute_slide_img(ByVal Chem As String, ByVal nomFic As String) As Boolean
num = ActivePresentation.Slides(ActivePresentation.Slides.Count).SlideIndex
    ActiveWindow.Selection.Unselect
    ActivePresentation.Slides.Add(Index:=num, Layout:=ppLayoutText).Select
    ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:= _
    Chem & nomFic, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0).Select
 
    ajoute_slide_img = True
End Function

Je ne sais pas trop comment m'y prendre.

[Invité]

Bonjour

Dans une macro, j'insère des images dans une présentation powerpoint et je voudrai que :
-La taille de l'image reste proportionnelle
- Qu'elle occupe toute la diapositive qu'elle soit trop grande ou trop petite.

Tu veux qu'elle reste proportionnelle, OK

Mais si elle dépasse : par exemple sa longueur est la longueur de la slide, mais sa hauteur est plus grande que la hauteur de la slide, que se passe-t-il dans ce cas tout en gardant la proportion.

Philippe

[aalex_38]

Merci pour la réponse rapide.

Si la hauteur est plus grande que la hauteur de la slide, je veux réduire la largeur pour que les hauteurs correspondent, avec l'image cadrée en haut à gauche.

Ce qui revient manuellement a placer l'image en haut à gauche et dans le coin en bas à droite de l'image, modifier proportionnelllemnt la taille pour que la hauteur occupe toute la slide

[Invité]

Re

Un code qui devrait le faire, bien sûr à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub InsertImage()
    ' déclaration des variables
    Dim objSld As Slide         ' slide où on va ajouter l'image
    Dim objShp As Shape         ' image que l'on va ajouter à la diapositive
 
    ' affectation
    Set objSld = ActivePresentation.Slides(1)            ' ici on va mettre l'image dans la première slide
 
    ' ajout de l'image
    Set objShp = objSld.Shapes.AddPicture("C:\Users\Philippe\Pictures\Portrait.jpg", msoFalse, msoTrue, 0, 0)
    With objShp
        .LockAspectRatio = msoTrue
        .Height = ActivePresentation.PageSetup.SlideHeight
    End With
 
End Sub

Teste le déjà comme cela en modifiant l'image et son chemin avec plusieurs images pour voir si cela te convient.

Philippe

[aalex_38]

Merci, J'adapte le code

[aalex_38]

Merci beaucoup, ça marche très bien, certaines images trop larges débordent toujours mais ça ne me gêne pas, l'ensemble est très satisfaisant