emplacement et dimension image

[AIGLON74]

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

 

[skoobi]

Re : emplacement et dimension image

Bonsoir,
ajoute ceci:
Sub Macro1()


maphoto = "c:\" & Range("L5") & ".jpg"
If Dir(maphoto) <> "" Then
Range("B2").Select
ActiveSheet.Pictures.Insert(maphoto).Select
Else
MsgBox "dessin 3D manquant"
End If
End Sub

 

[AIGLON74]

Re : emplacement et dimension image

Re

pour l'emplacement ok
ca marche bien

mais pour la dimension de l'image

A+
Aiglon74

 

[AIGLON74]

Re : emplacement et dimension image

Re

permission refusée
erreur d'excecution 70

A+
Aiglon74

 

[AIGLON74]

Re : emplacement et dimension image

bonsoir,tatiak et le forum

tout d'abord merci a tatiak pour ces explications

ton code marche comme prevu pour l'emplacement

mais pas pour la taille

l'image est insere mais il faut que le l'etire

A+
Aiglon74

 

[AIGLON74]

Re : emplacement et dimension image

Re,

ok compris ca marche

milles merci pour ton aide precieuse

et t'est explications

A+
aiglon74