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

Question

Я играл с анимацией в PowerPoint, но эта относительно простая вещь, кажется, выходит за рамки моего диапазона. Я хочу, чтобы на первом (титульном) слайде одно имя с его данными отображалось ниже, затем исчезало при нажатии (или нажатии "n"), а затем другое имя должно появляться в том же месте (где было имя) с его данными. , Можно ли управлять этим с помощью продвинутой анимации? В противном случае я также открыт для использования макросов VBA.

Я также хотел бы добавить символ / изображение (.bmp) для первого человека, который появится в середине слайда, который исчезнет с этим именем, а затем с появлением второго имени появится второе изображение / символ (.jpg) должен появиться в середине слайда. Я буду рад, если кто-то может показать мне, как это сделать. Большое спасибо.

Answer 1

Нижеприведенный код поможет вам сделать презентацию для отображения множества имен и других в постоянном цикле на слайде 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

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

Answer 2

Для этого типа эффекта рассмотрите создание нескольких слайдов и применение переходов между ними. Проще понять и создать, гораздо проще поддерживать. И если необходимо, вы можете распечатать их как отдельные слайды, тогда как печать слайдов с анимацией даст вам только один слайд со всеми фигурами, сложенными друг на друга.