Нижеприведенный код поможет вам сделать презентацию для отображения множества имен и других в постоянном цикле на слайде 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
NB
- Добавьте библиотеку объектов Microsoft PowePoint 15.0 из меню Инструменты, Ссылки в окнах редактора Excel VB.
- Создайте столько строк данных, сколько вам нужно на листе 1 в именованной книге.