Bonjour,
Je suis pas sure de poster au bon forum, alors désolé par avance si ca n'a rien à voir.

A partir d'une appli vb6, je voudrais ouvrir un doc excel et y mettre dedans une image à une certaine place. L'ouverture se fait bien mais c'est pour positionner l'image que ca coince... J'ai en table acces le chemin ou allez chercher l'image et j'ouvre un doc excel2000.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
ActiveSheet.Shapes.AddPicture(SLogo, msoFalse, msoCTrue, 40, 50, 120, 40).Name = "monimage"
Là, ca marche mais ca déforme l'image, alors pour essayer de donner un cadre j'ai fait :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
ActiveSheet.Shapes.AddPicture(SLogo, msoFalse, msoCTrue, 40, 40).Name = "monimage"
With ActiveSheet.Shapes("monimage")
        .Top = Range("d4").Top
        .Left = Range("d4").Left
        .Height = Range("d4:d7").Height
        .Width = Range("d4:f4").Width
End With
Là, ca voudrait marcher mais bizarrement, j'obtiens une largueur démesurée !!! et si j'inverse .height et .width, c'est une hauteur démesurée que j'obtiens !!!
Bon alors j'ai trouvé aussi l'utilisation de ; ActiveSheet.Pictures.Insert
Mais là curieusement, avec mon excel, la propriété 'Pictures' n'existe pas !!!??? et je ne peux donc pas utiliser cette solution, alors comment faire ? avez-vous une idée ?
Merci beaucoups.