Discussion :

[Xpro93]

Salut à tous,
je fais appel à vous car j'ai un soucis dans la dimension "d'objet" que j'ai collé sur une slide.
Pour être plus claire, ce que je veux faire c'est copier/coller un graphique sur une slide (fait sans problème) puis le redimensionner de façon à ce qu'il soit centré et de taille voulu (on pourra modifier après des essais).
Voici ce que j'ai fait pour le moment ( ATTENTION ce code n'est absolument pas optimisé et très moche mais ce n'est que temporaire )

Code :

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

1
2
3
4
5
6
7
8
9
10
.Slides.Add cpt + 1, 2
Sheets("Reporting").Range("Qualite").Copy
.Slides(cpt + 1).Shapes.PasteSpecial ppPasteOLEObject
.Slides(cpt + 1).Shapes("Titre 1").TextFrame.TextRange.Text = "Qualité"
 
.Slides(cpt + 1).Shapes.Range.Align msoAlignCenters, msoVrai
.Slides(cpt + 1).Shapes(5).Left = 10
.Slides(cpt + 1).Shapes(5).Top = 75
.Slides(cpt + 1).Shapes(5).Height = 700
.Slides(cpt + 1).Shapes(5).Width = 700

les 4 premières lignes n'ont donc pas de problème mais les 5 dernières sont surement mal utilisées et ne font ce que je veux... D'ailleurs les commandes "Left" et "top" ne me semble pas fonctionner.

[Xpro93]

Si quelqu'un pouvait au moins me dire quelles sont les dimensions, les repères utilisés par le logiciel etc... ça serait déjà super cool