Exporter dans un power point les graphiques d'un container (copie et coller image)

[mahieuphilippe]

Bonjour à tous,

Je cherche à copier /   coller  les différents graphiques qui sont inclus dans un container dans une présentation Power point en utilisant une commande vba.

J'ai bien trouvé la commande qui permet d'exporter un graphique, mais pas une copie d'un container :

sub ppt

  set objPPT = CreateObject("PowerPoint.Application")

  objPPT.Visible = True

  Set objPresentation = objPPT.Presentations.Add

  ActiveDocument.Sheets("SH01").Activate

  Set obj = ActiveDocument.GetSheetObject("CH01")

  Set PPSlide = objPresentation.Slides.Add(1,obj.GetObjectType)  

  obj.CopyTableToClipboard true

  With PPSlide

  objPPT.CommandBars.ExecuteMso ("PasteSourceFormatting")

  End With

voici les caractéristiques du container,  apparemment il faut indiquer la référence du container  (CT01)  ainsi que les

graphiques inclus dedans (CH08-CH07)

si j'effectue un bête copier puis coller image dans PPT cela fonctionne 

J'ajoute cette information mais à tester

Set ContainerObj = ActiveDocument.GetSheetObject("CT02")
    Set ContProp=ContainerObj.GetProperties 
 aSheetObj=Array("CH02","CH03","CH06")

D'avance merci

Philippe