Вставить связанную ячейку Excel в текст PowerPoint

Question

Я пытаюсь скопировать одну ячейку Excel следующим образом:

в существующий слайд PowerPoint, внутри существующей ячейки, например:

То, что я пытался сделать, это «Специальная вставка», вставьте ссылку на картинке ниже. Обратите внимание, что мне нужно было перетащить его туда вручную, что уже нежелательно.

Но в результате получается «поддельная ячейка», которую я должен перетащить вручную в правильном положении и не в обычном тексте, как мне нужно. Кто-нибудь знает лучшее решение для получения результата автоматизации, как на втором рисунке?

Заранее большое спасибо!

Answer 1

Dim xlsApp As Object
Dim xlsWB As Object

Set xlsApp = CreateObject("Excel.Application")
Set xlsWB = xlsApp.Workbooks.Open(ActivePresentation.Path & "\" & "FileName.xlsx")

ActivePresentation.Slides(1).Shapes("Subtitle").TextFrame.TextRange = "The excel sheet content should appear here within this text: " & xlsWB.Worksheets(1).Range("A1")

xlsWB.Save
xlsWB.Close
xlsApp.Quit

Set xlsWB = Nothing
Set xlsApp = Nothing

Вы можете изменить индекс слайдов. Вы можете настроить имя фигуры через панель выбора. Используйте vbNewLine, чтобы добавить разрыв между строк.

Используйте For Loops, чтобы автоматизировать это.