VBA_Excel从Excel复制到PPt不起作用

上述代码

ppslide.Shapes.Paste

生成此错误消息：

运行时错误2147188160 shapes.request:无效的请求。剪贴板为空或包含无法粘贴到此处的数据

---

也许可以尝试将A1范围内的任何内容放入字符串变量，然后将其放入Powerpoint中的形状中

e、 g

---

它再次将错误显示为运行时错误2147188160“幻灯片集合中的项目myslide not forunf”，您希望它生成什么？这里的一些附加上下文将非常有用。

  Sub ppt2()
     Dim ppapp As PowerPoint.Application
     Dim ppPres As PowerPoint.Presentation
     Set ppapp = New PowerPoint.Application
     ppapp.Visible = True
     ppapp.Activate

    Set ppPres = ppapp.Presentations.Add
    Set ppslide = ppPres.Slides.Add(1, ppLayoutTitle)
    ppslide.Shapes(1).TextFrame.TextRange = "ThisWorkbook"
    Set ppslide = ppPres.Slides.Add(2, ppLayoutBlank)
    ppslide.Select
    Range("A1").Copy
    ppslide.Shapes.Paste
    End Sub

myString = Range("A1").text
ppPres.Slides("mySlide").Shapes("myShape").TextFrame.TextRange = myString