Анимация PowerPoint или проблема VBA: одно имя, изображение появляется, исчезает, второе имя появляется в том же месте

ниже написанный код поможет вам сделать презентацию, чтобы отобразить много имен & amp; другие на постоянном цикле на слайде PowerPoint.

Sub CreateSlides()

Dim OWB As New Excel.Workbook
Set OWB = Excel.Application.Workbooks.Open("C:\data.xlsx")
Dim WS As Excel.Worksheet
Set WS = OWB.Worksheets(1)

For i = 1 To WS.Range("A1000").End(xlUp).Row

    ActivePresentation.Slides(1).Copy
    ActivePresentation.Slides.Paste (ActivePresentation.Slides.Count + 1)

       ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes(1).TextFrame.TextRange.Text = WS.Cells(i, 1).Value
Next
End Sub

Б. Н.

1. добавить Microsoft PowePoint 15.0 библиотека объектов, из инструмента, ссылки в окнах редактора Excel VB.
2. создать столько строк данных в лист 1 в названной книге.