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

  • Initiateur de la discussion Initiateur de la discussion L.Patrick
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

L.Patrick

Guest
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
 
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...

A+Veriland.gif


PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
58
Affichages
6 K
Réponses
0
Affichages
2 K
Retour