title: Update existing PowerPoint from data in Excel
body: <p>My intention is to open an existing PowerPoint presentation along with an existing Excel workbook, and subsequently run a VBA macro from Excel which would update the corresponding values in PowerPoint. </p>
  
  <p>For this I've identified the Shape name of the corresponding text boxes I want to update in PowerPoint by highlighting the specific textbox and used <code>Format -&gt; Align</code>. Then I've created 3 columns in Excel with the values:</p>
  
  <pre><code> Slide index   Shape name               Value
   1            Title 2                  =CONCATENATE("REPORT ";YEAR(TODAY()))
   1            Placeholder for date1    =TODAY()
  </code></pre>
  
  <p>I use the macro (which I unfortunately can't remember from which site I copied it):</p>
  
  <pre><code>Sub writedata()
  Dim c As Object
  Dim shapeslide
  Dim shapename
  Dim shapetext
  
  Set ppapp = GetObject(, "Powerpoint.application")
  Set pppres = ppapp.ActivePresentation
  
  For Each c In Blad2.Range("a2:a" &amp; Blad2.Range("a" &amp; Rows.Count).End(xlUp).Row)
  shapeslide = Blad2.Range("a" &amp; c.Row)
  shapename = Blad2.Range("b" &amp; c.Row)
  shapetext = Blad2.Range("c" &amp; c.Row).Text
  pppres.Slides(shapeslide).Shapes(shapename).TextEffect.Text = shapetext
  Next
  
  End Sub
  </code></pre>
  
  <p>My problem is that <code>Slide 1</code> wont be updated at all in its corresponding <code>Shape name</code>. The only action which happens when I execute this macro is that, for some reason, <code>Slide 3</code> has its <em>font size</em> modified to become size 35 instead of size 16. I can't understand why that is happening. The Shape name of the shape whose font size is altered is neither written into the Excel workbook, nor is it the same shape name as one of those two written in Excel. </p>
  
  <p>Hopefully someone can shed some light into this.</p>