如何在打开的演示文稿中用 SlideID 替换幻灯片答案

【问题标题】：How to replace a slide by SlideID in open presentation如何在打开的演示文稿中用 SlideID 替换幻灯片
【发布时间】：2020-07-02 17:21:35
【问题描述】：

我想从我的幻灯片库（源文件）中获取一张更新的幻灯片，并使用宏在打开的演示文稿中找到同一张幻灯片，并将其替换为更新的幻灯片。但我需要通过 SlideID 定义幻灯片，而不是页码。所以操作是：在打开的演示文稿中找到幻灯片（通过 SlideID），将其删除，在源文件中的相同位置插入更新的幻灯片（具有相同的 SlideID）。

我尝试了下面的代码，但它会删除打开的演示文稿中的坏幻灯片，然后将好幻灯片粘贴到最后而不是在同一位置。感谢您帮助解决此问题。

Sub ReplaceOneSlide()
ActivePresentation.Slides.FindBySlideID(1854).Delete
Dim sourcePresentation As Presentation
    On Error Resume Next
    Set sourcePresentation = Application.Presentations("X:\Marketing Presentations (Final) \Slide Library\Slide Library.pptm") 'change the name accordingly
    If sourcePresentation Is Nothing Then
        MsgBox "Source presentation not found!", vbExclamation
        Exit Sub
    End If
    On Error GoTo 0

    Dim vSlideIDs As Variant
    vSlideIDs = Array(1854) 'change the slide IDs accordingly

    Dim i As Long
    For i = LBound(vSlideIDs) To UBound(vSlideIDs)
        sourcePresentation.Slides.FindBySlideID(vSlideIDs(i)).Copy
        ActivePresentation.Slides.Paste
    Next i

End Sub

【问题讨论】：

您需要获取要删除的幻灯片的 .SlideIndex。这将使您可以将新幻灯片插入相同的位置。
我会更正，但我相信当将具有特定 SlideID 的幻灯片从一个演示文稿复制到另一个演示文稿时，不会保留原始 SlideID，而是分配一个新的 SlideID。这意味着您将找到另一种在演示文稿之间匹配幻灯片的方法。
@TechnoDabbler，没错。 SlideID 保证是唯一的，因此当创建/复制/粘贴新幻灯片时，它会获得一个新的且唯一的 SlideID。这是对其他地方提出的相同问题的重复，顺便说一句。保罗，最好在原始线程中跟进，而不是从这里开始。 stackoverflow.com/questions/57501968/…
尝试命名幻灯片并使用它来查找、删除和粘贴幻灯片。虽然粘贴后您必须为幻灯片命名，因为粘贴时 PPT 会自动重命名。
男士们，谢谢。我使用 SlideID 制作了一个解决方案。如果我使用键盘命令将幻灯片从一个演示文稿剪切/粘贴到另一个演示文稿，则两者中都会保留相同的 SlideID。我的宏在源文件中指定 SlideID，复制它，转到 ActivePresentation，找到同一张幻灯片，删除它，然后从源文件粘贴更新的幻灯片。关键是删除被替换的幻灯片，返回一张幻灯片以使其被选中，然后粘贴。通过这种方式，您可以避免粘贴“已存在”的幻灯片并采用新的 ID。这是我的代码。不漂亮但有效。

标签： vba powerpoint

【解决方案1】：

关于“如何保存和关闭活动演示文稿并在除源文件之外的任何其他打开的演示文稿中自动运行宏”，头上：

Dim oPres as Presentation
Dim sMyName as String

sMyName = "BlahBlah" ' fill in the name of the pres with macros here

For Each oPres in ActivePresentations
  If Not Ucase(oPres.Name) = Ucase(sMyName) Then
     ' do whatever's needed to oPres here
     oPres.Save
     oPres.Close
  End if
Next

【讨论】：

嗨，史蒂夫，感谢您的电子邮件回复 - 我已将其设为 here，作为 CW 的回答，感谢您，但请随时发布您自己的（我会投票赞成）