Macros - Inserer des Images dans des diapositives

Re : Macros - Inserer des Images dans des diapositives

Bonjour JNP!

Merci pour ton message.

LngTop et LngLeft me permettent de positionner l'image dans la diapositive.

En paramétrant Dim LngWidth as Long et Dim LngHeight as Long, pour la largeur et la hauteur, mais cela ne change pas la taille de l'image... Est-ce dû à cause du paramétrage?

Merci

Re : Macros - Inserer des Images dans des diapositives

nico125 à dit:

Bonjour JNP!

Merci pour ton message.

LngTop et LngLeft me permettent de positionner l'image dans la diapositive.

En paramétrant Dim LngWidth as Long et Dim LngHeight as Long, pour la largeur et la hauteur, mais cela ne change pas la taille de l'image... Est-ce dû à cause du paramétrage?

Merci

Cliquez pour agrandir...

J'ai trouvé: il suffisait d'ajouter LngWidth et LngHeight à la suite de "msoFalse, msoTrue"

Merci encore

Re : Macros - Inserer des Images dans des diapositives

Encore merci pour ton aide!

Voici donc la version finale:

Sub InsertImage()
Dim Chemin As String
Dim I As Integer
Dim NomFichier As String
Dim lngLeft As Long
Dim lngTop As Long
Dim lngHeight As Long
Dim lngWidth As Long

Chemin = ActivePresentation.Path & "\Pictures"

For I = 1 To ActivePresentation.Slides.Count
NomFichier = ActivePresentation.Slides(I).Shapes(1).TextFrame.TextRange.Text & ".jpg"
lngTop = 234
lngLeft = 40
lngHeight = 183
lngWidth = 200

On Error Resume Next
ActivePresentation.Slides(I).Shapes.AddPicture Chemin & "\" & NomFichier, msoFalse, msoTrue, lngLeft, lngTop, lngHeight, lngWidth
On Error GoTo 0
Next I
End Sub