Anais51
XLDnaute Nouveau
Bonjour!
Me revoilà avec un petit soucis lors de la création de mes macros. Je m'explique.
J'ai conçu une petite macro capable de copier coller des sortes de TCD dans des fichiers Excel sélectionné afin de les coller dans des slides précis d'un fichier power point type.
Tout cela fonctionne parfaitement à un petit détail pret: le collage spéciale en métafichier ne veux pas quitter les proportions de base quelques soit les données sélectionné dans la macro.
Voici un extrait de la macro:
Quelque soit la hauteur "Height" que je met elle ne change pas tant que la largeur "Width" n'augmente pas d'autant.
En gros si l'image du fichier fait 1000 x 500 je pourrais la modifier de telle façon qu'elle face 500 x 250 mais je suis incapable de changer les proportions et de faire 700 x 250 par exemple.
Je suis débutante en VBA, enfin je me débrouille avec ce que je trouve peut-être est-ce du à mon code?
Merci d'avance
Me revoilà avec un petit soucis lors de la création de mes macros. Je m'explique.
J'ai conçu une petite macro capable de copier coller des sortes de TCD dans des fichiers Excel sélectionné afin de les coller dans des slides précis d'un fichier power point type.
Tout cela fonctionne parfaitement à un petit détail pret: le collage spéciale en métafichier ne veux pas quitter les proportions de base quelques soit les données sélectionné dans la macro.
Voici un extrait de la macro:
'Sélectionne et transforme le tableau Excel
Workbooks.OpenText Filename:= _
"C:chemin\doc.xls"
Sheets("onglet").Select
Range("E2:H2").Select
ActiveCell.FormulaR1C1 = "Bla1"
Range("E3").Select
ActiveCell.FormulaR1C1 = "Bla2"
Range("K2:L2").Select
ActiveCell.FormulaR1C1 = "Bla3"
Range("D2:L12").Copy
'Sélectionne le Slide 8 et colle le tableau
PPTDoc.Slides(8).Shapes.PasteSpecial ppPasteEnhancedMetafile
NbShpe = PPTDoc.Slides(8).Shapes.Count
With PPTDoc.Slides(8).Shapes(NbShpe)
.Left = 15
.Top = 100
.Height = 10000
.Width = 350
End With
Quelque soit la hauteur "Height" que je met elle ne change pas tant que la largeur "Width" n'augmente pas d'autant.
En gros si l'image du fichier fait 1000 x 500 je pourrais la modifier de telle façon qu'elle face 500 x 250 mais je suis incapable de changer les proportions et de faire 700 x 250 par exemple.
Je suis débutante en VBA, enfin je me débrouille avec ce que je trouve peut-être est-ce du à mon code?
Merci d'avance