VBA:意外删除演示文稿()。幻灯片()收藏。如何重置?

时间:2018-01-29 05:27:32

标签: excel vba excel-vba powerpoint powerpoint-vba

VBA:我创建了一个名为slides()的数组,并覆盖了Presentations()。幻灯片()集合。这是我做过的愚蠢事情:

Dim slides() As String
ReDim slides(size)
For b = 1 to size
With oApp.Presentations(oPres).Slides(slides(b)).Shapes(metrics(a)).Chart.ChartData

我尝试删除数组并重新启动PowerPoint无效。我可以告诉它已经消失了,因为当我输入它时:

Dim pages() As String 'Renamed to pages
ReDim pages(size)
For b = 1 to size
With oApp.Presentations(oPres).Slides(pages(b)).Shapes(metrics(a)).Chart.ChartData

默认为此(因为数组是小写幻灯片()):

With oApp.Presentations(oPres).slides(pages(b)).Shapes(metrics(a)).Chart.ChartData

遗憾的是,这不起作用(并返回Object属性错误):

With oApp.Presentations(oPres).SlideRange(pages(b)).Shapes(metrics(a)).Chart.ChartData

如何获取默认的幻灯片()集合?

PS它不应该有所作为,但这个VBA代码存放在Excel文件中。因此需要将PowerPoint定义为对象(oApp)。

0 个答案:

没有答案