Insertion image par macro dans plusieurs cellules

royam -  
 royam -
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!

A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour
Avec une tite boucle 

Dim Dep As String, Fin As String
'......
For cptr = 1 To 3
    Dep = Choose(cptr, "B11", "M11", "Z11")
    Fin = Choose(cptr, "A50", "X20", "K29")

    Sommet = Range(Dep).Left
'....etc
Next


 Michel
0
royam
 
D'accord merci !
A quelle endroit dois-je insérer cette boucle ? Avant/Après ma macro actuelle ?
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
réflèchis un peu !!!
0
royam
 
J'y réflechis depuis des heures enfaite! Mais je dois avouer ne pas maitriser ce langage!
Merci je vais essayer de m'en sortir on verra bien!
0

Discussions similaires

PIX
plart -
jordane45 -

1 réponse