Discussion :

[Oh!Tofocus]

Bonjour à tous !
Je voudrais pouvoir inserer une image sur une feuille exel
en choisissant ses coordonnées

pour l'instant j'ai trouvé ça avec l'enregistreur de macro... mais c'est pas optimisé .

aprés avoir selectionné la case A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveSheet.Pictures.Insert("C:\Picture0001.jpg").Select
    Selection.ShapeRange.IncrementLeft 280
    Selection.ShapeRange.IncrementTop 60

peut-on fixer des le début les coordonnées sans passer par la position 0,0 ?

merci d'avance

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveSheet.Pictures.Insert("C:\Picture0001.jpg").Select
    Selection.ShapeRange.Left = 50
    Selection.ShapeRange.Top = 60

[fring]

Autre solution éventuelle, positionnement et en dimensionnement de l'image par rapport à une plage de cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test2()
Dim Pic As Object, Chemin As String, Cel As Range
 
Chemin = "C:\Picture0001.jpg"
Set Cel = Sheets(2).Range("B2:C9")
Set Pic = Sheets(2).Pictures.Insert(Chemin)
 
With Pic
    .Left = Cel.Left
    .Top = Cel.Top
    .Width = Cel.Width
    .Height = Cel.Height
End With
 
End Sub

[Oh!Tofocus]

OK.
merci beaucoup pour votre aide
A+