Skip to main content

Francophones

Announcements
QlikWorld 2023, a live, in-person thrill ride. Save $300 before February 6: REGISTER NOW!
cancel
Showing results for 
Search instead for 
Did you mean: 
mahieuphilippe
Creator
Creator

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

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)

 

001.JPG

 

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

0 Replies