Обновите одну из множества фигур на слайде PowerPoint

Question

Я пытаюсь обновить одну из многих фигур на слайде PowerPoint с помощью скопированного диапазона из листа Excel с помощью vba в excel. Хотя я могу выбрать форму, я не могу ее вставить. Код ниже выполняется правильно.

PowerPointApp.ActivePresentation.Slides(2).Select
PowerPointApp.ActivePresentation.Slides(2).Shapes("Table 4").Select

Но приведенный ниже код дает ошибку «Объект не поддерживает это свойство / метод».

PowerPointApp.ActivePresentation.Slides(2).Shapes("Table 4").Paste

Таблица 4 уже существует в слайд, мне нужно обновить его новыми данными, поэтому мне нужно будет удалить таблицу 4, а затем восстановить ее?

Answer 1

Таблица 4 уже существует на слайде, мне нужно обновить ее новыми данными, поэтому мне нужно будет удалить таблицу 4, а затем воссоздать ее?

Либо удалите и создайте заново, либо замените данные в существующей таблице новыми данными.

Если вы создадите новую таблицу, вам, вероятно, придется написать много кода, чтобы подобрать z- упорядочить и форматировать исходную таблицу и применить ее к новой. Изменить данные в существующей таблице, как правило, будет намного проще.

Кстати, эта часть:

PowerPointApp.ActivePresentation.Slides(2).Select
PowerPointApp.ActivePresentation.Slides(2).Shapes("Table 4").Select

- не лучший способ go об этом. Никогда не выбирайте ничего, если это не является абсолютно необходимым, а в данном случае это не так.

Вместо этого:

With PowerPointApp.ActivePresentation.Slides(2).Shapes("Table 4")
   ' do stuff
End With

или

Dim oTbl as Object
Set oTbl = PowerPointApp.ActivePresentation.Slides(2).Shapes("Table 4")
With oTbl
   ' do stuff
End With