Bonjour à tous,
Je fais appel à vos connaissances, après beaucoup d'essais erreur, j'ai réussis à insérer une photo dans ma feuille à partir du code...
Le problème la photo s'affiche n'importe ou dans la feuille.
J'aimerais que la photo s'affiche dans l'espace délimité C44:J54, en respectant le ratio de la photo et centré dans cet espace.
voici le code que j'ai jusqu’à présent
Dim design As String
Dim c As Range
Dim ws As Worksheet
Set ws = Sheets("F_C_Port_8x11")
design = "\\chemin_de_l'image\Dossier photo\" & uf_Inventaire.tb_NoDossier & "\Photo\PhotoR.jpg"
ws.Select
With ActiveSheet
On Error Resume Next
.Shapes("FICHE").Delete
Set c = .Range("C44").MergeArea
.Pictures.Insert(design).Name = "FICHE"
.Shapes(Name).Left = c.Left
.Shapes(Name).Top = c.Top
.Shapes(Name).LockAspectRatio = msoFalse
.Shapes(Name).Height = c.Height
.Shapes(Name).Width = c.Width
End With
Merci de bien vouloir jeter un oeil à mon problème.