JAG777 was telling us:
JAG777 nous racontait que :

You need to set a reference to "Microsoft Graph 11.0 Object Library" in
Tools > References (VBA Editor menu bar).

Declare some variables like:

   Dim o_OLE As Word.OLEFormat
   Dim diag As Graph.Chart

Then, set the variables, like:

   Set o_OLE = ActiveDocument.Shapes(1).OLEFormat
   o_OLE.DoVerb wdOLEVerbShow
   Set diag = o_OLE.Object

If it is an inlineshape use
   Set o_OLE = ActiveDocument.Shapes(1).OLEFormat

Finally manipulate the object like this:

   With diag.Application.DataSheet
       .cells
       .columns
       .rows
   End With

or

   With diag
       .HasLegend = False
       .Application.PlotBy = xlColumns
       .Width = CentimetersToPoints(25)
       .PlotArea.Width = CentimetersToPoints(20)
       .Axes(xlCategory, xlPrimary).TickLabelSpacing = 1
       .Axes(xlCategory, xlPrimary).TickLabels.Orientation = 90
   End With

And do not forget to destroy the objects:

   'Deactivate the graph object
   diag.Application.Quit

   'Clear objects
   Set diag = Nothing
   Set o_OLE = Nothing