poistionnement image via macro

[ebinet]

bonjour à tous,

j'ai une macro qui copie une image d'une feuille à une autre feuille dans un classeur excel.
Cela fonctionne bien sauf que je voudrais que le bord supérieur gauche de l'image soit aligné au bord superieur gauche de la cellule dans laquelle la macro colle cette image.
or ce n'est pas le cas : la macro copie bien l'image dans la cellule mais au milieu de celle ci.
J'ai tout essayé au niveau de la mise en forme de cellule (alignement à gauche...). rien n'y fait.
Mes compétences en vba sont trop limitées. Dans l'aide j'ai vu des fonction comme 'left ' mais je ne sais pas les mettre en oeuvre.
Existe t'il une fonction vba relative à la position de l'image (shaperange) par rapport à une cellule ou bien à la feuille elle meme ?

merci de votre aide.

 

[MichelXld]

bonjour

tu peux tester cette macro ( l'exemple ne prend pas en compte la partie copie de l'image , mais unqiuement la partie collage)


Dim Emplacement As Range
Dim image As Object

Set Emplacement = Feuil1.Range('D3')

Feuil1.Paste

Set image = Feuil1.DrawingObjects(Feuil1.DrawingObjects.Count)
With image.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
'.Height = Emplacement.Height
'.Width = Emplacement.Width
End With


bonne soirée
MichelXld

 

[ebinet]

bonsoir O magicien Michel,

C'est exactement ce que je voulais !
Cela marche à merveille.

Mille merci.
:kiss: :woohoo: