title: How to move image down using vba in powerpoint from excel?
body: <p>I am new to vba and macros in powerpoint.. What is the correct syntax to position an image down -30?</p>
  
  <pre><code>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
  </code></pre>