Ошибка времени выполнения '-2147188160 (80048240)': фигуры (неизвестный номер): неверный запрос. Буфер обмена пуст или содержит данные, которые нельзя вставить сюда - PullRequest
Новая
       19

Ошибка времени выполнения '-2147188160 (80048240)': фигуры (неизвестный номер): неверный запрос. Буфер обмена пуст или содержит данные, которые нельзя вставить сюда

0 голосов
/ 08 апреля 2019

У меня есть книга Excel, и я хочу экспортировать таблицу на листе 1 в PowerPoint, используя VBA. Ниже мой код, но я получил сообщение об ошибке в качестве плитки. Кто-нибудь может помочь мне решить проблему?

Заранее спасибо. 

Option Explicit
Sub Module1()

Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide

Set ppApp = New PowerPoint.Application

ppApp.Visible = True
ppApp.Activate

Set ppPres = ppApp.Presentations.Add
Set ppSlide = ppPres.Slides.Add(1, ppLayoutBlank)
ppSlide.Select

Range("A1").CurrentRegion.Copy

ppSlide.Shapes.Paste

End Sub
...