title: VBA Code for Powerpoint, changes all MS Object (from Excel) of all slides
body: <p>I have a lot of slides in Powerpoint. All have MS Object Connections to Excel tables. I am looking for a code, to changes the size and position of all this objects. I have some code already. But the problem is its also changes the size and position of texts. Do someone know how to changes it? </p>
  
  <pre><code>Sub ResizeAll()
  For Each tSlide In ActiveWindow.Presentation.Slides
  tSlide.Select
  With tSlide.Shapes.Item(1)
  'assume a blank slide with one image added only
     .Select
     .Height = 72 * 1000.39
     .Width = 72 * 10.67
  'algin middle (Horizontal Center)
     .Left = 100
     .Top = ActivePresentation.PageSetup.SlideHeight / 5
  End With
  Next
  End Sub
  </code></pre>