Bonjour a tous
 
Voici un code qui insert une image  
quand le nom de celle ci est inscrit dans L5
mais elle s'insert dans la cellule du dernier clic de la souris
et moi je voudrais l'insert en B2
et au format (dimension) de celle ci
 
 
Sub Macro1()
 
 
maphoto = "c:\" & Range("L5" ) & ".jpg"
 If Dir(maphoto) <> "" Then
    ActiveSheet.Pictures.Insert(maphoto).Select
     Else
    MsgBox "dessin 3D manquant"
End If
End Sub
 
 
Si quelqu'un a une idée
 
Merci par avance
 
Aiglon74

Sub Macro4()
 
Set pic = ActiveSheet.Pictures.Insert("C:\Documents and _ Settings\Picture 1.jpg" )
    pic.Top = Cells(2, 2).Top
    pic.Left = Cells(2, 2).Left
    pic.Width = Cells(2, 2).Width
    pic.Height = Cells(2, 2).Height
End Sub
 
Attention l'image va être déformée...
 

Pour garder les proportions et que l'image fit dans la case (sans déborder) :
 
Sub Macro4()
    Dim a As Double, b As Double
    Set pic = ActiveSheet.Pictures.Insert("C:\Picture 3.jpg" )
    a = pic.Height / pic.Width
    b = Cells(2, 2).Height / Cells(2, 2).Width
    pic.Top = Cells(2, 2).Top
    pic.Left = Cells(2, 2).Left
    If b < a Then
        pic.Height = Cells(2, 2).Height
        pic.Width = Cells(2, 2).Width * b / a
    Else
        pic.Width = Cells(2, 2).Width
        pic.Height = Cells(2, 2).Height * a / b
    End If
End Sub

bonsoir AprilThe5th ,et le forum
 
je viens de teste ton code
juste la macro que je cherche
mille merci
 
A+
Aiglon74