| | Toto2 | Posté le 25/03/2005 @ 21:45 | Petit astucien
1 Message
| Bonjour,
A partir d'une macro EXCEL, je souhaite coller des graphiques au format image dans un doc WORD les uns à la suite des autres dans une boucle.
Je n'y parviens pas, soit je les ai les uns sur les autres légérement décalés, soit chaque collage écrase tout ce qu'il a dans le fichier WORD et donc je n'ai que le dernier.
Voici le code :
...
' Ouvre le fichier source Word
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Set DocWord = AppWord.Documents.Open(FichierWord)
' Boucle de copie des courbes
For i = 1 To NbCourbes
... calcule le graphique en fonction de i
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.CopyPicture xlBitmap
'Colle les données dans Word
DocWord.Range.Paste
Next i
Merci pour les conseils que vous pourriez m'indiquer
| | |
| |
| Publicité |
|
| | breizhbugs | Posté le 26/03/2005 à 12:23 | Astucien
3001 Messages
| Salut,
Je m'y connais pas du tout en vba, mais toutes les copy/paste arrivent toujours en haut a gauche des pages (dans les visualiseur d'img.
Donc essaie plutot de faire une "insertion" en copiant l'iage dans un fichier par exemple puis en insérant le .jpg par exemple. Comme ca ca insere a la suite et non par dessus.
Ou alors il y a peut etre des fonctions pour placer les images. | | | |
| | Haut de la page |
| | Inscrivez-vous ! |
- Posez vos questions
- Résolvez vos problèmes
- Aidez les autres
- Participez et créez vos discussions
- Dialoguez en privé avec d'autres membres
- Suivez vos sujets préférés
- Affichez les signatures des membres
|
|