如何用VBA在PowerPoint幻灯片间复制图表并保留位置大小格式

以下脚本可实现从指定源幻灯片复制图表到目标幻灯片，完整保留格式、尺寸、位置等所有属性：

Sub 跨幻灯片复制图表()
    Dim sourceSlide As Slide
    Dim targetSlide As Slide
    Dim sourceChart As Shape
    Dim pastedChart As Shape
    
    ' 配置源幻灯片（第37张）和目标幻灯片（第36张），可按需修改序号
    Set sourceSlide = ActivePresentation.Slides(37)
    Set targetSlide = ActivePresentation.Slides(36)
    
    ' 遍历源幻灯片所有元素筛选图表，如需仅复制指定图表，可直接按形状名指定：
    ' Set sourceChart = sourceSlide.Shapes("你的图表名称") （图表名称可在「选择」窗格查看）
    For Each sourceChart In sourceSlide.Shapes
        If sourceChart.HasChart Then
            ' 复制源图表
            sourceChart.Copy
            ' 粘贴到目标幻灯片，保留全部源格式
            Set pastedChart = targetSlide.Shapes.PasteSpecial(DataType:=ppPasteDefault)(1)
            ' 对齐源图表的位置，确保和原位置完全一致
            pastedChart.Left = sourceChart.Left
            pastedChart.Top = sourceChart.Top
        End If
    Next
End Sub

使用说明 #

• 打开需要操作的PPT文件，按Alt+F11打开VBA编辑器，插入模块后将以上代码粘贴进去运行即可。
• 如需批量复制到多张幻灯片，只需修改目标幻灯片的遍历逻辑即可。

内容的提问来源于stack exchange，提问作者Yahya Demirbas