title: How to resolve Missing Powerpoint 15 Object Library Error
body: <p>I have written a macro that exports from excel to powerpoint and have gotten it to work properly in Excel/Powerpoint 2013, 2010.</p>
  
  <p>However I tested it on another version of Excel 2010 and got a VBA error that it was missing powerpoint object library 15. I tried running the macro with powerpoint library 14 and was able to but it wasn't reformatting the slides or doing a lot of the formatting that I was doing.</p>
  
  <p>What is the best way/easiest way to install an object library. Can I browse and import the file from the reference tab? If so how can I locate a dl file for the object library? I need to tell a client so i'm trying to make this as easy as possible. </p>
  
  <p>Note My code is below. I am having a hard time changing this to early binding per adam's feedback below. </p>
  
  <pre><code>  Sub CopyDataToPPT()
  'Const ppLayoutBlank = 12
  Dim objWorkSheet As Worksheet
  Dim objRange As Range
  Dim objPPT As Object
  Dim objPresentation As Object
  Dim shapePPTOne As Object
  Dim intLocation, intHeight, inLayout As Integer
  Dim strRange As String
  Dim boolOK As Boolean
  
  Application.ScreenUpdating = False
  'Set objWorkSheet = ThisWorkbook.ActiveSheet
  
  Set objPPT = CreateObject("PowerPoint.Application")
  
  objPPT.Visible = True
  inLayout = 1
  
  Set objPresentation = objPPT.Presentations.Add
  
  
      boolOK = False
          strRange = "p19:y48"  '&lt;- here
          intHeight = 430
          boolOK = True
  
      If boolOK = True Then
          Set objslide = objPresentation.Slides.Add(1, inLayout)
          objPresentation.Slides(1).Layout = ppLayoutTitleOnly
  
          objPresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text = "Reebok- " &amp; Sheets("Brand Personality").Cells(3, 2)
  
          Set objRange = Sheets("Brand Personality").Range(strRange)
          objRange.Copy
  
          DoEvents
          Set shapePPTOne = objslide.Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile, Link:=msoFalse)
  
  
          shapePPTOne(1).Left = 220
          shapePPTOne(1).Top = 100
          shapePPTOne(1).Height = intHeight
  
          Application.CutCopyMode = False
      End If
  </code></pre>