Microsoft 365 Export Graph au format image dans un document word

j'ai trouvé,

le bon code est le suivant

Sub Test()

'Declare Word Variables
'Dim WrdApp As Word.Application
Dim WrdApp As Object
Dim WrdDoc As Object
Dim SecCnt As Integer


'Declare Excel Variables
Dim ChrtObj As ChartObject
Dim Rng As Range

'Create a new instance of Word
Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True
WrdApp.Activate

'Create a new word document
Set WrdDoc = WrdApp.Documents.Add

'Loop through the charts on the active sheet
For Each ChrtObj In ActiveSheet.ChartObjects

'Copy the chart
ChrtObj.Chart.ChartArea.Copy

'Paste the Chart in the Word Document
With WrdApp.Selection
.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine
End With

'Count the pages in the Word Document
SecCnt = WrdApp.ActiveDocument.Sections.Count

'Add a new page to the document.
WrdApp.ActiveDocument.Sections.Add

'Go to the newly created page.
WrdApp.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext

Next ChrtObj

End Sub