Inserer photo sur une cellule sélectionnée

[gourdin]

Bonjour,

Ci dessous le code macro pour insérer une photo mais alors que la cellule B14 est sélectionnée dans la macro, l'image s'insère à partir d'une autre cellule.

Comment faire pour que cette image soit insérée au dessus de cellule B14 ?
C'est à dire que l'angle haut et gauche de la photo corresponde à l'angle haut et gauche de la cellule B14.
Merci de votre aide.

Voir fichier joint.

Macro :

Sub Inserer_photo()
Dim Choix
With ActiveSheet
[B14].Select
Choix = Application.GetOpenFilename("Fichier image(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp" _
, , "Choix de l'image", , False)
If Choix = False Then Exit Sub
On Error Resume Next
.Shapes("NewPhoto").Delete
.Pictures.Insert(Choix).Name = "NewPhoto"
With .Shapes("NewPhoto")
.Height = 115
.Width = 95
End With
End With
End Sub

 

[Staple1600]

Re : Inserer photo sur une cellule sélectionnée

Bonjour


Ton code tel quel fonctionne sur mon PC pourtant

 

[Fred0o]

Re : Inserer photo sur une cellule sélectionnée

Bonjour gourdin, Staple1600,

Chez moi itou, le code fonctionne très bien est m'aligne l'image au coin supérieur gauche de la cellule. Il en va de même si je change l'adresse de la cellule, l'image s'aligne sur le cellule indiquée.

A+

 

[gourdin]

Re : Inserer photo sur une cellule sélectionnée

Merci pour vos réponse

Je vais essayer d'élucider pourquoi celà ne fonctionne pas chez moi.