1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
Sheets("Feuil1").ChartObjects(1).Copy 'copie le 1er graphique de la Feuil1
'collage graphique dans Word
WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False
WordApp.Selection.TypeParagraph
Sheets("Feuil1").ChartObjects(2).Copy 'copie le 2er graphique de la Feuil1
WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False |
Partager