Macro partie pour copier graph et tableau vers PPT

Bonjour,
Je suis sur un projet pour le travail où je dois maintenant copier des graph et tableau vers powerPoint.
J'ai un souci sur la mise en forme. je n'arrive pas à coller en image et avec les bonnes dimension choisi.
voici comment j'ai procéder en simplifiant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sheets("sh").Select ActiveSheet.Shapes("graph1").Copy 'copie du graph je change celle ci pour un tableau avec un range. select selection.copy sld = 28 L = 2.46 'L , T, H, W sont en cm vu sur le ppt T = 4.92 H = 6.04 W = 12.23   With Pres.Slides(sld) Pres.Slides(sld).Shapes.PasteSpecial(xlBitmap).Select NbShpe = Pres.Slides(sld).Shapes.Count .Shapes(NbShpe).Left = L * 28.35 .Shapes(NbShpe).Top = T * 28.35 .Shapes(NbShpe).Height = H * 28.35 .Shapes(NbShpe).Width = W * 28.35 End With

---

Je comprend pas parce que au début ça marchais bien et maintenant ça bug, ça ne respecte plus les valeurs que je veux. Mon but est d'obtenir un copier sans liaison avec excel.

Need help.

Merci

j'ai utilisé du coup Application.centimetertopoints pour résoudre ce problème.
Néanmoins j'ai un problème assez éttrange : l'export se passe bien dans certain cas et dans d'autre ça devient n'importe quoi.
comme dans mon cas je fais de l'export à la chaine j'ai l'impression que dans certain cas le collage ne marche pas et du coup il selectionne le dernier graph par le count et modifie ses dimenssions . du coup tout bug.

je ne comprend pas. help needed