Exporter un graphique Excel vers Word

Bonjour merci pour ce super tuto,

Malheureusement, je vais compliquer légèrement le problème. Le code ci-dessus ne permet de copier qu'un graphique, comment fait-on quand on veut copier tous les graphiques de la feuille excel ?

Merci pour tout

Salut le forum

Tu veux le faire avec une macro . . .

Sub exportword()
    Dim Graph As ChartObject
    Set wo = CreateObject("Word.Application")
    doc = wo.documents.Add
    For Each Graph In Sheets("Graphes").ChartObjects
    Graph.Activate
    ActiveChart.CopyPicture Appearance:=xlPrinter, Size:=xlPrinter, Format:=xlPicture
    wo.Selection.Paste
    wo.Selection.typetext Text:=vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
    Graph.Delete
    Next Graph
    wo.activedocument.SaveAs Filename:="NouveauFichier.doc"
    wo.activedocument.Close
End Sub

Mytå