Скопируйте текстовое поле из PowerPoint в Excel - PullRequest
Новая
       21

Скопируйте текстовое поле из PowerPoint в Excel

0 голосов
/ 12 марта 2020

Есть похожий вопрос. У него есть ответ, но у меня не получилось. Я использовал их код и надеюсь, что кто-нибудь укажет, что я могу делать неправильно. Копирование данных из текстового поля powerpoint в ячейку Excel.

У меня есть Power Point со многими слайдами / текстовыми полями, среди других объектов. Я хотел бы скопировать весь текст из текстовых полей в таблицу Excel. Если бы я мог просто получить синтаксис для одного, я уверен, что смог бы пройти через слайд-колоду. 

Option Explicit
Dim pptSlide As PowerPoint.Slide
Dim pptPres As PowerPoint.Presentation
Dim PPT As PowerPoint.Application

Sub GetTextboxes()
Set PPT = GetObject(, "PowerPoint.Application")

Set pptPres = PPT.Presentations.Open("D:\Documents\Briefs.pptx")
Set pptSlide = pptPres.Slides(1)
Range("A1").Value = pptSlide.Shapes("Textbox1").TextFrame.TextRange.Text
End Sub
...