Comment faire pour déplacer l'image vers le bas à l'aide de vba dans powerpoint à partir d'excel?

Je suis nouveau sur vba et les macros dans powerpoint.. Quelle est la bonne syntaxe pour positionner une image en bas de -30?

PPT.ActiveWindow.View.GotoSlide 9

Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation
' Reference active slide
Set PPSlide = PPPres.Slides _
    (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
' Copy chart as a picture
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
    Format:=xlPicture
' Paste chart
PPSlide.Shapes.Paste.Select
' Align pasted chart

Dim xyz As Shape
Set xyz = PPSlide.Shapes.Selection


PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
xyz.Top = xyz.Top - 30
InformationsquelleAutor thedeepfield | 2011-09-22
  1. 1

    Mis à JOUR

    Basé sur l'exemple de code, je pense que vous voulez essayer quelque chose comme cela:

     PPSlide.Shapes.Paste.Select
' Align pasted chart

PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
PPApp.ActiveWindow.Selection.ShapeRange(1).Top = PPApp.ActiveWindow.Selection.ShapeRange(1).Top + 30

    Vous pouvez prendre les lignes faisant référence à xyz.

    • J'ai essayé de mettre en place quelque chose comme ça, mais ça ne fonctionne pas.. voir mon code mis à jour ci-dessus.
    • Ce n'est pas de travail? Quelle erreur avez-vous? Pour déplacer l'image vers le bas plus bas dans la page, vous avez certainement besoin d'AJOUTER 30 de Haut, soustrayez pas que votre code montre.
    • J'ai mis à jour ma réponse basée sur la mise à jour de votre code.
    • ty tellement j'ai été bloqué sur ce pour un couple de jours! Alors que je peux en tirer avec excel et VBA pour la plupart, de programmation pour Word ou PowerPoint est un combat pour moi. Avez-vous de bonnes références en ligne pour travailler avec ceux-là? Je n'arrive pas à trouver tout.. merci encore pour votre aide!!
    InformationsquelleAutor PaulStock