Bonjour
Je recherche le code qui permettrait d'insérer une image dans une diapo.
Par avance merci.
Cordialement
Jean-Claude
Bonjour
Je recherche le code qui permettrait d'insérer une image dans une diapo.
Par avance merci.
Cordialement
Jean-Claude
Bonjour,
je pense que ça va t'aider :
Sub collage_image()
' déclaration
Dim objSld As Slide
Dim strPathImage As String
' affectation
strPathImage = "C:\test\test.jpg"
' on parcourt les diapositives de la présentation
For Each objSld In ActivePresentation.Slides
' on ajoute l'image 1
Set objShp = objSld.Shapes.AddPicture(strPathImage1, msoFalse, msoTrue, 50, 50)
With objShp
.LockAspectRatio = msoTrue ' désactivation du ration
.Height = 300 ' hauteur
' .Width = 215 ' largeur
.Top = 100 ' position par rapport au haut de la diapo
.Left = 50 ' postion par rapport au bord gauche de la diapo
End With
' on passe à la diapositive suivante
Next objSld
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager