quel "RANGE" pour image auto dans cellules fusionnées

[L.Patrick]

j'ai trouvé sur le forum une méthode pour mettre en forme auto une image dans une cellule mais si je désire la mettre dans un ensemble de cellules fusionnées A2, B2, A3, B3 quel "range" dois je saisir? merci d'avance.

Sub InsertPicture()
'J Walkenbach, mpep
Dim MyCell As Range
Dim MyPicture As Picture
Dim image$

image = Range("a2")
Set MyCell = Range("b2")
MyCell.Select
Set MyPicture = ActiveSheet.Pictures.Insert(image)
With MyPicture.ShapeRange
.LockAspectRatio = msoFalse
.Height = MyCell.Height
.Width = MyCell.Width
End With
MyCell.Select

Range("c2") = MyCell.Height & " x " & MyCell.Width

End Sub

 

[Vériland]

Bonsoir L.Patrick et toi le Forum,

Afficher une image dans une plage de cellule ?...oui...

je ne réponds p'têt pas précisément à ta question de cellules fusionnées, mais je te propose la procédure suivante où tu pourras insérer une image selon la sélection...on peut aussi définir cette plage autrement...c'est un exemple...on peut adapter...lol

Option Explicit
Sub InsertImageSelection()
'Vériland
'Septembre 2003
'http://www.excel-downloads.com/html/French/forum/messages/1_51590_51590.htm
'Insérer une image dans une sélection de cellules
Dim GifImage As String
Dim Gauche As Single, Haut As Single, Hauteur As Single, Largeur As Single
Dim NouvelleImage As Variant
' ici définir le chemin
GifImage = "C:\Documents and Settings\Bureau\lagaffe04.jpg"
'
Set NouvelleImage = ActiveSheet.Pictures.Insert(GifImage)
'
With Application.Selection
Gauche = .Left
Haut = .Top
Hauteur = .Height
Largeur = .Width
End With
'
With NouvelleImage
.Left = Gauche
.Top = Haut
.Height = Hauteur
.Width = Largeur
End With
'
Set NouvelleImage = Nothing
End Sub

Le principe est le suivant...on cherche l'image sur le disque dur (tu peux choisir une autre méthode)...et elle s'affiche dans la plage sélectionnée...

A tester...si tu as du mal je reviendrais...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...