title: How to change table header color in PPT VBA
body: <p>I have a 100 slide PowerPoint presentation with tons of tables and would like to use VBA code to change the color of the headers on each table. The default color from the template inputs the table with the below format with the header color as RGB (79, 129, 189):
  <a href="https://i.stack.imgur.com/W0Hw5.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/W0Hw5.png" alt="enter image description here"></a></p>
  
  <p>I need to change the header colors to a darker blue RGB (0, 56, 104). See example below: 
  <a href="https://i.stack.imgur.com/keeHX.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/keeHX.png" alt="enter image description here"></a></p>
  
  <p>The have used the below code before to change shape colors in a presentation, so was wondering if there is a similar method for this new task. Thanks in advance for any help.</p>
  
  <p>`Sub ChangeShapeColor()</p>
  
  <pre><code>Dim shp As Shape
  Dim sld As Slide
  
  For Each shp In ActivePresentation.Slides
  
      ' Look at each shape on each slide:
      For Each shp In sld.Shapes
  
          If shp.Fill.ForeColor.RGB = RGB(79, 129, 189) Then
  
  
          shp.Fill.ForeColor.RGB = RGB(0, 56, 104)
  
          End If
  
      Next shp
  
  Next sld
  </code></pre>
  
  <p>End Sub`</p>