vba - PowerPoint 中的分支幻灯片 (VBA)

Question

我正在尝试创建一个后退按钮，但使用超链接它只是将我带到上一页并最终进入一个循环......例如，如果我有幻灯片 1，其中包含指向幻灯片 3、4 和 5 的链接，那么幻灯片 3 链接到6 和 7。如果我目前在幻灯片 7 上并单击返回，它成功将我带回幻灯片 3，但我想单击返回并最终返回幻灯片 1 而不是返回幻灯片 7（希望我有一些意义！）。

我想我这样做的唯一方法是使用 VBA 谁能给我一些关于创建后退按钮的最佳方法的建议？（我使用的是 PowerPoint 2007）

Answer 1

今天我正在为类似的问题而苦苦挣扎，并为PowerPoint制作了一个小“面包屑”-生成器。目前还没有链接功能，但是如果你喜欢，你可以实现它： Github Project

代码的基本部分

 Public Sub breadcrumbs(ByVal count As Integer, ByRef titles() As String)
    Dim cntr As Integer
    Dim content() As String
    Dim margin As Integer
    Dim width As Integer
    '----------------------------

    ' Set Titles
    content = titles
    cntr = 0
    ' Set width
    width = ((Application.ActivePresentation.PageSetup.SlideWidth - (margin * count * 2) - 20) / count) - 50

    ' Loop through all slides
    For Each sld In Application.ActivePresentation.Slides
        ' generate breadcrumb for each title
        For Each con In content
            sld.Shapes.AddShape(1, (50 + (width * cntr)), 15, width, 50).TextFrame.TextRange.Text = con
            cntr = cntr + 1
        Next con
        cntr = 0

    Next sld

End Sub

Answer 2

听起来您想要访问幻灯片的“面包屑路径”，而不是简单的后退按钮。因此，您需要一种方法来保护踪迹。

这可以通过动态数组来解决。新浏览会将记录添加到数组中。通过向上或向下移动阵列可以找到您的“下一个”和“上一个”位置。你会有一些轻微的逻辑谜题。我讨厌向您推荐通用资源，但我没有具体说明，概述可能会有所帮助。

更新： 我过去一直想要这个用于 MS Access，并认为我很容易找到一个片段解决方案。但是现在我去搜索（认为它也会很容易地为你转换），但我什么也没找到。这很令人惊讶，因为我想建造它会很有趣。或者......它比我预期的更难建造。

Answer 3

有一种很麻烦的方法，不用编程直接在 PPT 里做。您需要“前向幻灯片”和 2 组“后向幻灯片”。向后有两种类型 - 直接返回和回家。它们都可以相同，但隐藏后面的那些（例如，您需要“Slide 3a”、“Slide 3b”和“Slide 3c”，而不是“Slide 3”。）。它们是隐藏的，因此当您正常进行时，您不会看到它们，但是当您链接到它们时，它们会出现。“a”幻灯片上的链接列表应始终指向“b”幻灯片，而“b”幻灯片将指向“c”幻灯片。您在“a”幻灯片上的“后退按钮”上的超链接应该是“上一张幻灯片”和“c”

这需要一段时间才能完成，但它可以完成。