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

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