如何使用VBA将powerpoint节复制到新演示文稿中

Sub CopySlideToNewPresentation()
    Dim SourcePresentation As Presentation
    Dim TargetPresentation As Presentation
    Dim SourceSlide As Slide
    Dim TargetSlide As Slide
    
    ' 设置源演示文稿和目标演示文稿
    Set SourcePresentation = ActivePresentation
    Set TargetPresentation = Presentations.Add
    
    ' 设置源幻灯片和目标幻灯片
    Set SourceSlide = SourcePresentation.Slides(1) ' 这里假设要复制的是第一张幻灯片
    Set TargetSlide = TargetPresentation.Slides.Add(1, SourceSlide.Layout) ' 在目标演示文稿中添加一个新幻灯片
    
    ' 复制源幻灯片的内容到目标幻灯片
    SourceSlide.Copy
    TargetSlide.Shapes.Paste
    
    ' 保存目标演示文稿
    TargetPresentation.SaveAs "目标演示文稿的文件路径和名称"
    
    ' 关闭目标演示文稿
    TargetPresentation.Close
    
    ' 清除对象引用
    Set SourcePresentation = Nothing
    Set TargetPresentation = Nothing
    Set SourceSlide = Nothing
    Set TargetSlide = Nothing
End Sub