[VB6]Insertion image dans Excel

Version imprimable

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:

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:

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.

rajoute :

Code:

1
2
3
4
5
6
 
(...)
With ActiveSheet.Shapes("monimage")
          .LockAspectRatio = msoFalse
         .Top = Range("d4").Top
(..)

12/04/2006, 11h30
mosquitout
Merci Bbil, désolé de répondre si tardivement. J'ai rajouté la ligne que tu m'as conseillé et ca marche. Enfin en partie ....
Disons que ca ne marche qu'une fois. Si je relance la validation de la frm qui génère le doc excel avec donc l'image insérée, là ca plante ! comme ci il ne voulait plus recréer une image déjà en place ;(
(l'idée c'est de mettre en 'paramètre' sur une frm un certain nb d'info, dont 1 image, et à la validation de ce frm => ca genere la feuille excel)

Alors en cherchant j'ai vu que l'on pouvait aussi utiliser l'instruction
Code:

1 2 ActiveSheet.Pictures.Insert("image")
Mais en testant chez moi, je n'ai pas la propriété 'Pictures" qui est proposée !!!??? est-ce que ce serait pas un probleme de versions ? j'utilise excel2000

Merci de vos réponses ;-)
12/04/2006, 11h42
ouskel'n'or

Où se trouve ton image ?
Si dans "image" tu as mis le chemin et le nom du fichier, ça devrait fonctionner sans rien changer.
Si ce n'est pas le cas, essaie de désigner la feuille de calcul à la place de activesheet (???) à tout hasard, il nous faudrait plus de code :wink:

A+

NB - "Chez toi, tu ne dois pas avoir validé la bonne référence dans VB.
Vérifie qu'une référence n'est pas marquée "MANQUANT" dans l'éditeur VB -> Outils -> Références

Salut Ouskel,
Ds mon projet j'ai les références :
Microsoft ActiveX data objets 2.8
Microsoft Excel 9.0 Object Library
Microsoft Office 9.0 Object Library

"Vérifie qu'une référence n'est pas marquée "MANQUANT" dans l'éditeur VB -> Outils -> Références"
Ds le menu 'Outils' je n'ai pas de sous-menu 'Références' !?

Et sinon voici un bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 If DocumentouvertE = False Then L = L + 1 Set objExcel(L) = CreateObject("Excel.Application") Set objDocumentE(L) = objExcel(L).Workbooks.Open(App.Path & "\Docs\Docexcel.xls") objExcel(L).DisplayAlerts = wdAlertsNone DocumentouvertE = True End If Set Feuille = objExcel(L).ActiveWorkbook.ActiveSheet Feuille.Shapes.AddPicture(SLogo, msoFalse, msoCTrue, 0, 0, 0, 0).Name = "monimage" With Feuille.Shapes("monimage") .LockAspectRatio = msoFalse .Top = Range("d4").Top .Left = Range("d4").Left .Height = Range("d4:d7").Height .Width = Range("d4:f4").Width End With objExcel(L).Visible = True
Voilà, SLogo est en faite le nom complet du chemin ou se trouve l'image (C:\Images\test.jpg). Et ca marche bien la première fois, mais pas la 2ieme :cry:

Et si tu fais :

Code:

1
2
3
4
5
6
7
8
9
    Feuille.Pictures.Insert(SLogo)
    With Selection   'A adapter / VB ********
        .Name = "monimage" 
        .LockAspectRatio = msoFalse 
        .Top = Range("d4").Top 
        .Left = Range("d4").Left 
        .Height = Range("d4:d7").Height 
        .Width = Range("d4:f4").Width 
    End With

Je n'ai pas VB, je ne peux donc pas vérifier ****** donc, juste pour l'idée

A+

12/04/2006, 12h43
SfJ5Rpw8
ben c'est normal que cela ne marche qu'une fois ... tu ne avoir qu'une image avec le même nom ... il faut changer le nom ...
Code:

1 2 Feuille.Shapes.AddPicture(SLogo, msoFalse, msoCTrue, 0, 0, 0, 0).Name = "monimage" With Feuille.Shapes("monimage")
à remplacer par :
Code:

1 2 3 4 Dim s As Shape Set s = feuille.Shapes.AddPicture(slogo, msoFalse, msoCTrue, 0, 0, 0, 0) With s (...)
.. excel te généra seul le nom de l'image.. tu peu le récupérer par s.name...
12/04/2006, 12h48
mosquitout

Ca ne marche pas car le ".Pictures" n'est pas reconnu et du coup tout se qui suit non plus
(.Name = "monimage", .LockAspectRatio , etc...)
:?
12/04/2006, 12h58
mosquitout

Bbil
Après essai ca ne marche tj pas, je pense qu'il doit s'agir d'un pb de référence car avec ta formule, j'obtiens "Methode ou menbres de données introuvables" !? C.a.d qu'il ne reconnait pas les .name, .LockAspectRatio, etc.
12/04/2006, 14h02
SfJ5Rpw8

Citation:

Envoyé par mosquitout

Bbil
Après essai ca ne marche tj pas, je pense qu'il doit s'agir d'un pb de référence car avec ta formule, j'obtiens "Methode ou menbres de données introuvables" !? C.a.d qu'il ne reconnait pas les .name, .LockAspectRatio, etc.

tu est sous VB6... essai:

Code:

Dim s As Excel.Shape
12/04/2006, 15h00
mosquitout
Merci bil, C bon :o

Mais je reste bloqué sur la non utilisation de "pictures" ? un truc comme :
Code:

1 2 Set p = ActiveSheet.Pictures.Insert(PictureFileName)
devrai pouvoir marcher, non ???
Quand vous mettez ActiveSheet. , vous avez "Pictures" dans la liste des propriétés proposées, et bien moi non ?! :?

Je suis preneur de toute idée. Cette utilisation de Pictures m'aurai bien plus car j'ai trouvé du code pour "centrer une image à l'intérieur d'un cadre défini et tout en gardant ses proportions (hauteur/largeur)"
12/04/2006, 15h37
SfJ5Rpw8
Citation:
Envoyé par mosquitout

Code:

1 2 Set p = ActiveSheet.Pictures.Insert(PictureFileName)

devrai pouvoir marcher, non ???
Quand vous mettez ActiveSheet. , vous avez "Pictures" dans la liste des propriétés proposées, et bien moi non ?! :?
non on ne la pas ... et dans l'aide en ligne Excel 2002 ..

Citation:

Élément de langage masqué
Vous avez demandé de l'aide pour un élément de langage qui est masqué et auquel vous ne pouvez, par conséquent, accéder par programmation.

..
cependant le code donné fonctionne :wink:

tu la testé sous ton excel (pas VB6..)
12/04/2006, 16h30
mosquitout

Ok Bil,
Quant tu dit, "tu la testé sous ton excel (pas VB6..)", tu veux bien dire que j'utilise en fait du vba et non du vb ? c'est ca ?
Effectivement, j'ai trouvé la 'source' de ce code sous des exemple vba, mais je pensai que c'était très proche de vb et donc ..... mais apparement non :roll: Bon vu que je ne suis pas pros d'excel, je vais plonger dans le tuto de M.Rabilloud sur ce site, ce sera peut-être plus clair après :wink:

En tout cas merci de vos conseils :)