insérer image dans cellule

[breeze]

Bonjour a tous,
Je voudrais savoir s'il est possible de d'insérer une image dans une cellule en la placant où ont veut.
Je m'explique.
j'utilise cette macro qui fonctionne très bien.


If Intersect(ActiveCell, Range("e3,g3,i3,k3,m3,o3,e8,g8,i8,k8,m8,o8,e13,g13,i13,k13,m13,o13,e18,g18,i18,k18,m18,o18,e23,g23,i23,k23,m23,o23,i28,k28,m28,o28")) Is Nothing Then Exit Sub


ActiveSheet.Pictures.Insert( _
"C:\users\TetuC793\Pictures\Bibliothèque multimédia Microsoft\MC900432586[2].png" _
).Select


Selection.ShapeRange.ScaleWidth 0.2, msoTrue
Selection.ShapeRange.ScaleHeight 0.2, msoTrue



Range("h1").Select

Avec cette macro l'image aparait un haut à gauche de la cellule.
Je voudrais que l'image apparaisse à droite de la cellule.
Quelqu'un sait comment faire?

Merci !!

 

[Pierrot93]

Re : insérer image dans cellule

Bonjour,

peut être tout simplement ceci, à placer avant l'instruction d'insertion :

ActiveCell.Offset(0, 1).Select

bonne journée
@+

 

[BOISGONTIER]

Re : insérer image dans cellule

Bonjour,

Cadre à droite de la cellule active.

  Selection.ShapeRange.Top = ActiveCell.Top
  Selection.ShapeRange.Left = ActiveCell.Left + ActiveCell.Width - Selection.ShapeRange.Width

jb