title: Format Table Style in PowerPoint from Excel - 2013
body: <p>I have the following code block that loops through an array of table names in a workbook. It is a ParamArray from a calling procedure (Callback). It copies each table and pastes it to the ppt slide. Then it creates a textbox, which is the title for the table. I am pasting it using the destination style (which I think is the default) because I want to use ppt styles. The object I am pasting from Excel is a table. How can I change the style of the table after it is pasted and make the first row bold? Changing PowerPoint Table Styles doesn't seem to be well documented. I tried the commented section below but it didn't work. Thank you!</p>
  
  <pre><code>For i = LBound(vObjects(0)) To UBound(vObjects(0))
          Set practice = ActiveWorkbook.Worksheets(Range("T_" &amp; vObjects(0)(i)).Parent.Name).ListObjects("T_" &amp; vObjects(0)(i))
          practice.Range.Copy
          PPT_Slide.Shapes.Paste 'Special DataType:=ppPasteOLEObject, Link:=msoTrue
          Set PPT_Shape = PPT_Slide.Shapes(PPT_Slide.Shapes.Count)
          PPT_Shape.Name = "OBJ_" &amp; vObjects(0)(i)
  '        With PPT_Shape
  '            .ApplyStyle "{C083E6E3-FA7D-4D7B-A595-EF9225AFEA82}", True
  '            .Rows(1).Font.Bold = True
  '        End With
          Set objPPT_MilestoneTextbox = PPT_Slide.Shapes.AddTextbox(1, Left:=320, Top:=HorizontalTop, Width:=300, Height:=50).TextFrame.TextRange
          With objPPT_MilestoneTextbox
              .Text = vObjects(0)(i)
              .Font.Size = 14
              .Font.Bold = True
              .ParagraphFormat.Alignment = 2
          End With
          Set PPT_Shape = PPT_Slide.Shapes(PPT_Slide.Shapes.Count)
          PPT_Shape.Name = "CAP_" &amp; vObjects(0)(i)
      Next i
      Application.CutCopyMode = False
  </code></pre>