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 :
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 ActiveSheet.Shapes.AddPicture(SLogo, msoFalse, msoCTrue, 40, 50, 120, 40).Name = "monimage"
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 !!!
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
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.
Partager