poistionnement image via macro

ebinet

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
300 717
Messages
1 986 642
Membres
209 555
dernier inscrit
Cookone