PowerPoint VBA格式

Question

我有一个代码可以将其他PowerPoint幻灯片放入主文件的末尾。这段代码已经工作了好几个月了，现在它似乎搞砸了几个拉动的格式。标题很奇怪（例如，应该是蓝色的，从左边开始，以黑色和中心的形式出现）。我检查了所有文件，源格式正确。任何修复此格式问题的帮助都将不胜感激。

Sub Wing()
Dim objPresentation As Presentation
Dim i As Integer
Dim intpresentation As Integer
Dim Max As Integer

'open the target presentation
Set objPresentation = Presentations.Open("\\nw\data\737MAX\12-Business_Ops\PP&C\14_IPTs\03_Airframe\01_IPT_Roll_Up\03_DBT\04_Winglet\737_MAX_Winglet_DBTC.pptx")

Max = objPresentation.Slides.Count

For i = 1 To Max

objPresentation.Slides.Item(i).Copy
        Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design = _
        objPresentation.Slides.Item(i).Design
    Presentations.Item(1).Slides.Paste
Next i
objPresentation.Close
End Sub

Answer 1

仔细检查你的来源，这发生在我身上一次。尝试将演示文稿再次更改为桌面链接，这样就可以完全确定它不是那样。