如何解决丢失的Powerpoint 15对象库错误

我已经写了一个macros从excel导出到powerpoint，并得到它在Excel / Powerpoint 2013年，2010年正常工作。

不过，我testing了另一个版本的Excel 2010，并得到了一个VBA的错误，它是缺less的Powerpoint对象库15.我试图运行macros与PowerPoint文件库14，并能够但它不是重新格式化的幻灯片或做了很多我正在做的格式。

什么是安装对象库的最好方法/最简单的方法。 我可以浏览并从参考标签中导入文件吗？ 如果是这样，我怎么能find一个dl文件的对象库？ 我需要告诉一个客户，所以我试图尽可能简单。

注意我的代码如下。 我很难改变这个早期绑定每个亚当的反馈如下。

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" '<- 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- " & 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 

Answer 1

该库不能单独安装。 在这种情况下更简单的方法是在你的代码中使用后期绑定，它应该删除库依赖项。 这是早期和晚期结合之间差异的一个很好的入门书。