HELP!! Positionnemnet et dimensionnement image dans Word depuis Excel VBA

simonlagaffe

XLDnaute Nouveau
Bonjour,
J'ai créer un fichier excel de gestion de membres d'adhérents d'un club. J'ai ajouter une fonction permettant de créer des cartes membres (sur doc Word)automatiquement, mais par contre j'ai un problème au niveau de mes images:
J'utilise une boucle FOR(car jusqu'à 8 carte de membres maximum), et "z" comme variable pour les index des images
Voici le code:

Code:
Dim n As Long 'variable pour boucle
Dim z As Long 'variable pour numero image word

For n=1 to NbreCarte
...
        On Error Resume Next
        Fichier = "C:\Gestionnaire REF\testpilotageWord.doc"
        DocWord.InlineShapes.AddPicture Filename:= _
        "C:\Gestionnaire REF\Photos\" & NumAdh & ".jpg" 'Image à insérer dans document Word
        On Error GoTo 0
        'Redimensionnement de l'image
        DocWord.InlineShapes(z).Height = 87.99 '<-- 1er bug a la 3ème image
        DocWord.InlineShapes(z).Width = 72.77
        DocWord.InlineShapes(z).ConvertToShape
        'Positionnement de l'image
        DocWord.Shapes(z).Top = 110 '<-- 2eme bug, dés la première image
        DocWord.Shapes(z).Left = 210
        z = z + 1
Next

J'aurais besoin vraiment de votre aide sur ça!! je bloque complètement sans comprendre....
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson