Insertion image par macro dans plusieurs cellules
Bonjour,
J'utilise actuellement une macro qui me permet d'insérer une image dans une cellule selon un format définis ( dans cette macro). J'aimerai s'il est possible que cette image s'insère non pas dans 1 seul cellules mais dans par exemple 3 cellules au lieu d'avoir 3 macros pour insérer 3 fois la photo dans 3 cellules différentes (j espère que ce j'écris est compréhensible).
Voici la macro que j'utilise :
Sub Macro1()
Dim Photo As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single
Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
Gauche = Range("B11").Left
Sommet = Range("B11").Top
Largeur = Range("A50").Width
Hauteur = Range("A50").Height
If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
End If
End Sub
A noter que j'utilise excel 2003
Voila merci pour vos réponses!
J'utilise actuellement une macro qui me permet d'insérer une image dans une cellule selon un format définis ( dans cette macro). J'aimerai s'il est possible que cette image s'insère non pas dans 1 seul cellules mais dans par exemple 3 cellules au lieu d'avoir 3 macros pour insérer 3 fois la photo dans 3 cellules différentes (j espère que ce j'écris est compréhensible).
Voici la macro que j'utilise :
Sub Macro1()
Dim Photo As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single
Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
Gauche = Range("B11").Left
Sommet = Range("B11").Top
Largeur = Range("A50").Width
Hauteur = Range("A50").Height
If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
End If
End Sub
A noter que j'utilise excel 2003
Voila merci pour vos réponses!
