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 001.JPG](https://community.qlik.com/t5/image/serverpage/image-id/12343i9D5C408BFBB441D2/image-size/large?v=v2&px=999)
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