☰

PowerPoint 动画或 VBA 问题：一个名称、图片出现、消失，第二个名称出现在同一个位置

tag-icon • tag-icon vba macros microsoft-powerpoint animation
PowerPoint 动画或 VBA 问题：一个名称、图片出现、消失，第二个名称出现在同一个位置

我一直在 PowerPoint 中玩动画，但这个相对简单的事情似乎超出了我的范围。我希望在第一张（标题）幻灯片上，一个名字及其详细信息出现在下方，然后在单击（或按“n”）时消失，然后另一个名字应该出现在同一个位置（第一个名字所在的位置）及其详细信息。这可以用高级动画来管理吗？否则我也愿意使用 VBA 宏。

我还想为第一个人添加一个符号/图片 (.bmp)，使其出现在幻灯片中间，该符号/图片会随该姓名一起消失，然后当第二个姓名出现时，第二个图片/符号 (.jpg) 应出现在幻灯片中间。如果有人能告诉我如何做到这一点，我将非常高兴。非常感谢。

答案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

注意：

  1. 从 Excel VB 编辑器窗口中的工具、引用中添加 Microsoft PowePoint 15.0 对象库。
  2. 在命名工作簿的 Sheet 1 中创建任意数量的数据行。

答案2

对于这种效果，请考虑创建多张幻灯片并在它们之间应用过渡。这样更容易理解和创建，维护起来也简单得多。如果需要，您可以将它们打印为单独的幻灯片，而打印带有动画的幻灯片只会给您一张幻灯片，其中所有形状都堆叠在一起。

相关内容