小编Pun*_*eet的帖子

我是 VBA 新手。我正在编写代码将粘贴图表从 Excel 复制到 Powerpoint 演示文稿的不同幻灯片。我能够将图表完全对齐地粘贴到 ppt 的幻灯片 1 上；但对于第二个图表，我收到一条错误消息：“请求无效。要选择形状，其视图必须处于活动状态。”。请求所有人支持我更正以下代码：

Sub ExcelAuto()
Dim PPT As PowerPoint.Application
Dim PPTFile As PowerPoint.Presentation
Dim ActiveSlide As PowerPoint.Slide

Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
PPT.Presentations.Open fileName:="Path"

Set PPTFile = PPT.ActivePresentation
PPT.ActiveWindow.ViewType = ppViewSlide

        ActiveWorkbook.Sheets("Charts").ChartObjects("Chart 6").CopyPicture
        With PPTFile.Slides(1)
        .Shapes.Paste.Select
         PPT.ActiveWindow.Selection.ShapeRange.Left = 37
         PPT.ActiveWindow.Selection.ShapeRange.Top = 127
        End With

        ActiveWorkbook.Sheets("Charts").ChartObjects("Chart 8").CopyPicture
        With PPTFile.Slides(2)
        .Shapes.Paste.Select
         PPT.ActiveWindow.Selection.ShapeRange.Left = 37
         PPT.ActiveWindow.Selection.ShapeRange.Top = 354
        End With

    Set PPT = Nothing
    Set PPTFile = Nothing
    Set ActiveSlide = Nothing


End …