Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA PowerPoint Discussion :

Redimension d'objet sur power point


Sujet :

VBA PowerPoint

  1. #1
    Membre à l'essai
    Redimension d'objet sur power point
    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.

  2. #2
    Membre à l'essai
    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