Discussion :

[bil_home]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bil_home]

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