对象'Shapes'的方法'AddChart'失败

时间:2017-10-19 13:10:51

标签: vba ms-access-2010 powerpoint-vba

我一直在从Access 2010生成PowerPoint演示文稿。最近,我开始看到AddChart method失败的一些用户出现错误。我无法从Microsoft找到有关此错误的任何文档,我在此处找到的唯一两个结果是trying to create a slide during a slideshowrunning PowerPoint on a Mac。我正在使用通用模板创建一个新的演示文稿,该模板用于许多不同的演示文稿。

生成的错误是错误#-2147417846(“对象'Shapes'的方法'AddChart'失败”)。我也开始收到一个看似相同的错误,但错误#是-2147467259。

我在Windows 7上安装了Office 2010,并且在发生错误时收集版本信息。下面是产生错误的代码和对象定义。

'Object definitions
Dim pptSld As PowerPoint.Slide
Dim pptShp As PowerPoint.Shape
Dim pptCht As PowerPoint.Chart
Dim xlsWbk As Excel.Workbook
Dim xlsWks As Excel.Worksheet

...

'Use fncSlideCheck to add a new slide
Set pptSld = fncSlideCheck(pptPrs, pptSld)
pptSld.Select

Set pptShp = pptSld.Shapes.AddChart(xlLine)
Set pptCht = pptShp.Chart
Set xlsWbk = pptCht.ChartData.Workbook

更新(11/14/17)

我能够手动捕获错误一次,并且我得到一个对话框,报告如果MS Excel处于编辑模式或打开了对话框,则addchart方法将无效。我发现在任务管理器中运行了一个Excel进程并终止了该进程。一旦我这样做,错误就停止了。

0 个答案:

没有答案